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Preface 


This manual is one of a series designed to instruct and guide the 
user in the use of the SPERRY UNIVAC Operating System/3 
(OS/3). It specifically describes the purpose and use of the 
COBOL editor (COBEDT), an interactive component of OS/3. 


The intended audience is the novice user who has ittle 
knowledge of data processing and the COBOL language, or the 
more experienced user who may or may not be familiar with 
COBEDT. 

This manual is divided as follows: 


a Section 1. Introduction 


Explains what COBEDT is, what it’s used for, and how it 
operates with the general editor (EDT). 


# Section 2. Workstation Considerations 


Introduces features of the workstation and describes the 
structure and format conventions for COBEDT screens. 


m Section 3. Using COBEDT 
Describes how to initiate and terminate the COBEDT session. 


m Section 4. Creating COBOL Source Programs in Ordered 
Creation Mode 


Explains how to create COBOL source programs in the 
standard COBOL program order by using the COBEDT display 
screens. It also tells how to interactively compile COBOL 
programs and describes all the available ordered creation 
mode screens. 
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Section 5. Creating COBOL Source Programs in Selective 
Creation Mode 


Explains how to selectively create portions of a COBOL 
source program by using the COBEDT display screens and 
describes all the available selective creation mode screens. 
Section 6. Editing COBOL Source Programs 

Explains through sample sessions how to edit COBOL source 
programs by using EDT commands in the COBEDT or the 
EDT environment. 

Appendix A. Procedure Division Verb Skeletons Screens 
Describes the purpose of the verb syntax skeleton screens 
and how to display them and shows all the available verb 
syntax skeleton screens. 


Appendix B. General Editor Command Summary 


Presents all the general editor commands, their formats, and 
a brief description of their functions. 


Appendix C. Workstation Command List 


Presents all the workstation commands and their formats. 


The current versions of the following manuals are helpful to the 
COBEDT user in both the System 80 and Series 90 
environments: 


General Editor (EDT) User Guide/Programmer Reference, 
UP-8828 


Describes the functions of the general editor commands and 
how to use them. 


Interactive Services Commands =  and_ Facilities User 
Guide/Programmer Reference, UP-8845 


Describes the commands and operating procedures for 
workstation terminals. 


Interactive Services Commands and Facilities Summary, 
UP-8938 


Summarizes the workstation commands. 
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1974 ANSI COBOL Programmer Reference, UP-8613 
Presents the rules for writing COBOL programs to be 
compiled by the 1974 ANSI COBOL compiler and executed 
under the control of OS/3. 

System Service Programs (SSP) User Guide, UP-8841 
(System 80) 

System Service Programs (SSP) User Guide, UP-8062 (Series 
90) 


Describe various system utilities (librarian, linkage editor, 
etc). 


System Messages Programmer/Operator Reference, UP-8076 
Describes the OS/3 system error messages. 


Spooling and Job Accounting Concepts and Facilities, 
UP-8869 


Describes basic spooling and job accounting concepts and 
options available to control spooling systems. 


Job Control User Guide, UP-8065 


Describes job control and its effective use. 
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1. Introduction 


1.1. WHAT COBEDT IS USED FOR 


Creating/updating programs 
interactively 


immediate error and syntax 
checking 


Screen formats 


Sperry Univac provides as part of Operating System/3 (OS/3) a 
COBOL editor, called COBEDT, to make COBOL source entry fast 
and easy. 


As you may know, COBOL is a programming language 
resembling English. Just as in English, certain rules must be 
observed. Among the COBOL rules are that source statements 
must appear in a particular order and that each source statement 
must be entered in a particular column range or position. 


In addition to these rules, COBOL has so many options that even 
experienced users have to refer to the COBOL reference manual 
frequently. 


As a result, it is tedious to code large COBOL programs. 
Well, COBEDT can make the work a lot simpler for you. 


First, COBEDT is an interactive product. With it, you can create 
and update your COBOL source programs from a workstation. 
You can see your source entries displayed on the workstation 
screen as you key them in and therefore can check immediately 
for coding and typographical errors. Upon transmission of your 
entries, COBEDT also does a syntax check on them. Thus, there 
is yet another way of eliminating the traditional "first compilation” 
trivial errors before the program is compiled. 


Second, COBEDT gives you screen formats to enter your source 
elements. The screen formats contain such things as required 
COBOL statements and directions for entering variable data. 
These formats may be displayed in sequence to prompt the 
inexperienced user through the creation of a COBOL source 
program, or the formats may be used on a selective basis for 
the more experienced user. 


Now that you know what COBEDT can generally do for you, let’s 
see exactly what COBEDT is and how it works. 
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1.2. WHAT COBEDT IS AND HOW IT WORKS 


Work-space file 


Line number 


Creating programs 


Updating programs 


Screen mode of EDT 


COBEDT is actually a subeditor of the general editor (EDT). It is 
activated from EDT and uses many of the facilities of EDT. Thus, 
you should be familiar with EDT before you start using COBEDT. 
For convenience, a brief overview of EDT is provided here. For a 
complete discussion of EDT, see the general editor (EDT) user 
guide/programmer reference. 


EDT automatically creates a temporary disk file (known as the 
EDT work-space file) each time EDT is activated. This 
work-space file lasts for the duration of the EDT session, and it 
is here that all programs and files are created and updated. 
COBEDT uses this same work-space file when you create and 
update your COBOL programs. The work-space file has line 
numbers associated with it. You use these line numbers with 
COBEDT to both reference and manipulate your source code. 


To create a new COBOL program via COBEDT, enter your source 
code into the EDT work-space file as shown in Figure 1-1. When 
all entries are made, you can then save a copy of the work-space 
file by writing it (via the EDT @WRITE command) to a permanent 
SAT file. Or, you can list it on the printer (via the EDT @LIST 
command) or even punch it on cards (via the EDT @PUNCH 
command). 


To update an existing COBOL program via COBEDT, first read a 
copy of the program into the work-space file via the EDT @READ 
command.The @READ command reads and then writes a copy of 
your program into the work-space file, and it also keeps the 
original version of your program in your library (permanent SAT 
file), thus providing you with a backup copy. All updating to your 
program is done in the work-space file. Once you finish updating 
your program, you can (as when creating a program) use EDT to 
save it, print it, or punch it. 


NOTE: 


To make minor changes to your source program without syntax 
checking, use the screen mode of EDT. For detailed information, 
see the general editor (EDT) user guide/programmer reference. 


Figure 1-1 shows how COBEDT operates with EDT to create a 
COBOL source program, while Figure 1-2 shows how COBEDT 
operates with EDT in updating a program. 
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CREATING 
A PROGRAM 


ACTIVATE 
COBOL EDITOR 


4 


COBOL EDITOR CREATE COBOL 


SOURCE PROGRAM 


EOT 


COMMANDS WRITE PROGRAM 


FILE 


| WORK-SPACE 


SAVE COPY OF 
WORK-SPACE FILE 


ie 


WRITE TO LIST ON PUNCH ON 
NEW FILE* PRINTER CARDS 


Sm) CIc7 


DISK DISKETTE PRINTER CARDS 


*COBOL programs must be written to SAT files to be compiled. 


Figure 1-1. Creating a COBOL Program 





UPDATING 
A PROGRAM 


ACTIVATE 
COBOL EDITOR 


L 


READ COBOL 
PROGRAM —> COBOL EDITOR READ PROGRAM 


ED 
baal Raber EDT WRITE COBOL 
FILE COMMANDS PROGRAM 


ORIGINAL | 
FILE 


SAVE COPY OF 
WORK-SPACE FILE 


WRITE TO LUST ON PUNCH ON 
NEW FILE* PRINTER CARDS 


+ 


oes) ES 


DISKETTE PRINTER 


“COBOL programs must be written to SAT files to be compiled. 


Figure 1-2. Updating a COBOL Program 
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FILE 
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1.3. COMMAND CONVENTIONS USED IN THIS MANUAL 


COMMAND CONVENTIONS 


Uppercase letters 


Underscoring 


® 


> 
~ 
KA 
S 
3 


[> ] 


Delta symbol 


Lowercase letters 





Brackets 


The following command conventions are used in this manual: 


Commands and parameters in uppercase (capital) letters must be keyed in 
literally. For example: 


EOT 


Underscoring (underlining) a portion of a command or parameter indicates 
its shortest abbreviation that must be keyed in. For example: 


@COBOL 
The at sign at the beginning of EDT commands must always be keyed in. 
For example: 


aCOB 


The delta symbol indicates a space in command formats. For example: 
EDTA @COBOL 

Parameters or commands in lowercase letters designate user-defined 

variables. For example: 


@PRINT lLine-range 


Optional command parameters are enclosed in brackets. For example: 


@PRINT [lLine-range] 
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Alternate choices for a command parameter are enclosed in braces. For 
example: 







Braces 
QWRITE FILENAME= {filename 


‘filename! 
“filename” 


Commas, periods, colons, semicoions, equal signs, and parentheses in 
command formats must be keyed in literally. For example: 


Special characters @WRITE FILENAME=f ilename 


Default values are shaded in command formats and in entries on COBEDT 
screens. For example: 


Shading Continuation Code C¥RH) 


User entries on COBEDT screens are in reverse print (white characters on 
black background). For example: 


Reverse print Continuation Code ({@j) 
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2. Workstation Considerations 


2.1. LOGGING ON AND LOGGING OFF 


Why log on? 


Logging On 


Since COBEDT is an interactive product, you access COBEDT via 
the workstation. If you're the first user, turn on the workstation. 
Allow the workstation a few seconds to warm up. When screen 
2-1 appears, the workstation is ready and you may log on. 
Logging on identifies you as a legitimate user and gives you 
access to the system. 


SCREEN 
2-1 






000000 ssss / 333 
00000000 SSSSSS // 33333 
00 00 ss Ss ‘V1 33.33 
00 00 Ss ‘tT 33 
00 00 ss /// 33 
00 00 ss /// 333 
00 00 ss /// 33 
00 00 ss ss /t/ 33.033 
00000000 SSSSSS // 3333333 

000000 Ssss / 3333 


SPERRY UNIVAC INTERACTIVE OPERATING SYSTEM 
DEPRESS TRANSMIT FOR LOGON 
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Logging on via the 
LOGON menu 


LOGON menu 


Logging on via the 
LOGON command 


LOGON command 
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NOTE: 


Before logging on, you must check with your system 
administrator to get a logon user-id and, if your system requires 
logon account numbers and passwords, a logon account number 
and password. 


To log on, you may carry out either one of the following 
operations: 


m Press the XMIT key, fill in the LOGON menu displayed to 
you (screen 2-2), and then press the XMIT key again. 


SCREEN 
22 





OS/3 INTERACTIVE SERVICES 


LOGON IDENTIFICATION: | USER-ID Sig siecs < 
ACCOUNT NUMBER deeds 
PASSWORD Pecees < 
OPTIONS: EXECUTION PROFILE >........ < 
BULLETIN ERK 
LOG > 


= Enter SYSTEM mode, key in the LOGON command, and then 
press the XMIT key. 


LOGONAuser-id[,acct][,password][,exec-pro] 


Emoto 





NOTE: 


You may use the System 80 console workstation, the UNISCOPE 
200 terminal with a 24 (lines) by 80 (columns) screen, or the 
UTS 400 terminal as the workstation (the System 80 
workstation). 


Before you can log on from a UNISCOPE or a UTS 400 terminal, 
you must first sign onto ICAM. 


The logon procedure for the console workstation, the UNISCOPE 
terminal, and the UTS 400 terminal is the same as for the 
workstation, except the logon menu is obtained by entering 
WORKSTATION mode and then pressing the transmit key. 
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Logging Off 


When you've finished using the workstation, take these steps to 
log off: 


Enter SYSTEM mode if you are not already in it. 
Key in the LOGOFF command: LOGOFF. 


Press the XMIT key. 


NOTE: 


The logoff procedure for the console workstation, the UNISCOPE 
terminal, and the UTS 400 terminal is the same as for the 
workstation. 


For more information on logging on and off, see the interactive 
services commands and _ facilities user guide/programmer 
reference. 





2.2. MOVING THE CURSOR AND TRANSMITTING THE SCREEN 


During a COBEDT session, the cursor can be repositioned on the 
workstation screen by pressing any of these keys: 


= Tab keys (TAB FORWARD and TAB BACK) 


= Cursor scan keys [| [+] [+] 


= § Cursor-to-home key 
m= «Space bar 
m RETURN key 


When a COBEDT screen is displayed, the cursor is in the first 
unprotected field (user data field). To advance the cursor from 
field to field, press the TAB FORWARD key. 


To fill in your data or overwrite the displayed default value, move 
the cursor to the desired user data field and then enter the 
desired data. To keep the default value, simply move the cursor 
to another data field. 


Once you make your selections and enter all the desired data, 
move the cursor to the bottom of the screen (past the last user 
data field on the screen) and then press the XMIT key to 
transmit the screen. 
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If you want to keep all the default values on the screen, simply 
press the TAB BACK key once to move the cursor to the bottom 
of the screen and then press the XMIT key to transmit. 


2.3. GENERAL STRUCTURE OF COBEDT SCREENS 


All COBEDT screens have similar structures. The following is a 
line-by-line description of the general structure of these screens. 


Line 1 Line 1 contains one of the three header information messages: 


0S/3 EDT/COBOL COBOL EDITOR(V8.6/1) 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


0S/3 EDT/COBOL COBOL EDITOR(V8.6/1)-Selective Creation Mode 





Line 2 Line 2 contains a string of asterisks (*). 


HHKKKKEKHEKHKKEK EKER REREKREKEREEEEKEKREREKRREKKEEKKK KKK 


Lines 3 to 19 Lines 3 to 19 contain descriptive information and user data fields 
that vary from screen to screen. (You enter variable data in user 
User data fields data fields.) 
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& Lines 20 and 21 Lines 20 and 21 are for you to enter one or more EDT 


commands: 


EDT Command:@ 


The maximum length of this field is 128 characters. It’s your 
responsibility to stay within this limit. 


Line 22 Line 22, like line 2, contains a string of asterisks (*). Lines 2 and 
22 separate user lines from system lines. 


Lines 23 and 24 Lines 23 and 24 are left blank for the system to enter EDT and 
COBEDT error messages. Here's a sample COBEDT error 
message: 


CED@20 NUMERIC DATA REQUIRED. 
CORRECT DATA AND TRANSMIT. 
2.4. FORMAT NOTATIONS FOR COBEDT SCREENS 
General Screen Format Notations 


Here are the general screen format notations other than those for 
COBOL source elements. 








General Screen 
Format Notations 





The user entries (data fields) are enclosed in parentheses. For example: 


Continuation Code 





Enclosing user entries 


You may overwrite the displayed default values in those fields with other 
acceptable values. 


The brackets next to the continuation code field enclose the name of the 
next screen to be displayed if the normal continuation code NRM is 
selected. (On ordered creation mode screens, this description is applicable 


Enclosing next screen : : : 
only in ordered creation mode processing.) For example: 


name 
Continuation Code (@@M) [Next Screen is Environment Division] 


The current work-space line number appears in the form: nnnn.nnnn. It 
occurs to the right of the name of every COBOL source line entry type 


screen. The number is in the range of .0001 to 9999.9999. For example: 
Current work-space 


line number NS? ; 
Identification Division Line 1. 


A B 
IDENTIFICATION DIVISION. 
PROGRAM-ID. 
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COBOL Format Notations 


Here are the COBOL format notations for ordered creation mode 
: screens. 





COBOL Format 
Notations for Ordered 
Creation Mode Screens 


PROGRAM-ID 


Uppercase words 







Uppercase words not enclosed in parentheses are required words. They're 
generated by COBEDT when the screen is transmitted. For example: 





IDENTIFICATION DIVISION. 
PROGRAM- ID. 


Periods are required characters. They're generated by COBEDT when the 
screen is transmitted. 


Uppercase words enclosed in parentheses aren't required by the COBOL 
syntax. However, they’re generated by COBEDT when the screen is 


- transmitted. For example: 
Enclosing optional 


words 







ACCESS (MODE IS) SEQUENTIAL 


Phrases enclosed in brackets aren't required in a COBOL program. 


lf a phrase itself is a complete one (that is, no user input is required), it’s 
generated by COBEDT when the screen is transmitted with the required 
data entered. For example: 


Enclosing optional 
phrases 





[ACCESS (MODE IS) SEQUENTIAL] 


If a phrase needs your data input, it’s generated only when the required 
data is entered and the screen is transmitted. For example: 


[RESERVE <1,2>AREA(S) ] 


A word or a series of words or numbers separated by commas enclosed 
in angle brackets < > describes the data or choices of data to be entered 
ss in the immediately preceding field. Numbers and words in uppercase must 
Words and numbers be entered literally. Lowercase designates user-supplied data. For example: 
in angle brackets 


RERUN ON <DISC,DISK, TAPE, | fdname>- <tfdname>- <1,2> 
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Notations for Selective 
Creation Mode Screens 
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Here are the COBOL format notations for selective creation mode 
screens. 





Uppercase words not enclosed in parentheses are required words. For 


KEY 
example: 
Uppercase words 
KEY (IS) 
HO | Uppercase words enclosed in parentheses are optional words. 


Enclosing optional words 


Lowercase words with embedded hyphens designate user-supplied data. 


Lowercase words 


cc Phrases enclosed in brackets are optional. 


Enclosing optional phrases 


Mutually exclusive options separated by commas are enclosed in braces. 
One option must be selected. For example: 

Indicating a choice STOP {RUN, Literal} 

of options af 
The ellipsis indicates that the immediately preceding unit (enclosed in [ ] or 
{ }) may repeat at your option. For example: 

EINpats USING file-name-1[,file-name-2]... 
Characters > (greater than), < (less than), and = (equal to) are required. 

=>, < and = For example: ; 


START file-name KEYCIS)= 
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COBOL Format 
Notations for Selective 
Creation Mode Screens 


Semicolons and commas (except those separating options) are optional 
characters. In source programs, semicolons and commas_ are 
interchangeable. For example: 





Semicolon 


G08 SOIOe [; INVALID KEY imperative-statement] 


Periods must be used to terminate division and section headers, paragraph 
names, paragraphs in the identification and environment divisions, entries 
in the data division, and sentences in the procedure division. For example: 


Period 


PROCEDURE DIVISION. 
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3. Using COBEDT 


3.1. ACTIVATING COBEDT 


Using COBEDT with Because COBEDT is a specialized language editor (subeditor) of 
EDT EDT, COBEDT can be used only while EDT is activated. 
Activating both EDT lf EDT is not already activated, activate both EDT and COBEDT 
and COBEDT by keying in: 

EDT A@COBOL 


r Activating COBEDT only If you are already in an EDT session, key in: 


@COBOL 


3.2. INITIAL DISPLAY - THE OPTION SELECT SCREEN 


Once COBEDT is activated, the first workstation screen you see 
is the option select screen. 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1) 
KKK REE HKU ERRERR KEKE ERE RE KEEKEEREKRERHEEEEKKEEEE 
Select Creation Mode : (&) 
1=Create in COBOL Program Order 
2=Create Selected Portions of the COBOL Program 


Continuation Code Git) 
NRM=Normal Continuation CMD=Enter EDT Command Mode 
EDT Command:@ 
KAKA EEERERER REECE EKER RER AER KI KIER EEE REE EEEEEREEEKEERE 


@ 
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Use this screen to choose one of the two COBEDT operating 
modes, ordered and selective, to create your COBOL program. 
You also can use this screen to issue the EDT commands directly 
in COBEDT or to temporarily return to the EDT command mode. 





The following describes the options provided on the screen. 


Select Creation Mode 


Select option 1 


0S/3 EDT/COBOL COBOL EDITOR ¥8.0/3) 


n ode: 

in COBOL oro ge Order 

Selected Po 2Mles of the COBO Program 
== 


when you want to create your COBOL 


program in the ordered creation mode. 


To select option 1, key in 1 over the 


displayed 2. 


Continuation Code 


Select CMD 







05/3 EOT /CoeoL 


in COBOL Progree Order 
Selected Portions of the COBOL Program 


Continuation code QED 
WRI it = 


when you want to temporarily return 
to EDT command mode and issue the 
EDT commands there. To select the 
CMD code, key in CMD over the 
displayed NRM. 





Select option 2 


COBOL EDITOR va.0/1) 


when you want to create your COBOL 
program in the selective creation 
mode. To select option 2, simply 
press the TAB FORWARD key to 
move the cursor to the next user field. 


Select NRM 


COOL EDITOR YS.0/1) 


COROL Progree Order 
ected Partions of the COBOL Program 





when you want COBEDT to continue 
its normal processing and display the 
next required screen. The screen that 
appears next depends on the option 
selected in the select creation mode 
field. The next display is the 
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identification division screen if option 
1 was selected 





0S/3 EDT/COBOL COBOL EDITOR(V8.6/1)-Ordered Creation Mode 


KK TKK KH IRI IH KKK IKKE HEIR RHEE HI KIKI EKER REIKI EKEEEREREEEREKREEE KEKE 


Identification Division Line 1. 


A 8 

IDENTIFICATION DIVISION. <Enter X if Line not to be created in Select Mode> 
PROGRAM-ID. 

CAUTHOR. 

CLINSTALLATION. 

COATE-WRITTEN. 

CDATE-COMPILED. 

CSECURITY. 


Continuation Code (NRM) [Next Screen is Environment Division] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode CON = Display Control Division Screen 
EDT Command:@ 


HV HK RHI IKKE KKK IK IKK IKK KIKI KIKI IIIT HI HTK IK II IK IIIA REET IR 





or the standard COBOL coding form 
screen if option 2 was selected. 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Selective Creation Mode 


HHH IH IIIS HIT IIIT TTT HAH IATA III IK IIIT IAI THERE EI REREEREEEREEKREEE 
Standard COBOL Coding Form Line 1. 
CIA 8 





Continuation Code (NRM) [Next Screen is the Standard COBOL Coding Form} 
NRM = Normal Continuation TMP = Display Creation Screen List 
CMD = Enter EDT Command Mode sss = Display Creation Screen sss 
RET = Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 


EDT Command:a 
FRI HH IH FRITH TEI IIE ISTH HK IHR TN IA IT IT TT TTT RIKI KIKI EEREREE 


EDT Command:@ Field 


You may enter one or more EDT commands here without leaving 
COBEDT. To enter the command, place the cursor to the right of 
the @ sign and then key in the command. 
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Invalid options 
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Transmitting the Option Select Screen 


Once you make all your selections on the option select screen, 
move the cursor to the bottom of the screen (past the last 
selection on the screen) and then press the XMIT key to transmit 
your selections to COBEDT. If you want to keep all the default 
options, simply press the TAB BACK key to move the cursor to 
the bottom of the screen and then transmit. 


If you make mistakes in selecting the options, upon transmission, 
COBEDT will redisplay the screen with an error message. You 
then correct the errors and retransmit the screen. 


3.3. REENTERING COBEDT FROM EDT 





To reenter COBEDT after you've temporarily returned to EDT 
through the CMD continuation code during a COBEDT session, 
key in the command: 


@FORMAT 


The @FORMAT command returns you to the same COBEDT 


creation mode as you exited and COBEDT resumes its normal 
processing. 


NOTE: 


If you use the @BLOCK screen command, be sure to terminate it 
before returning to COBEDT with @FORMAT. To terminate 
@BLOCK, use function key F14 or the @RESTORE screen 
command. Otherwise, you'll get errors. 


Now, let’s see what might result. 
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Example 1 
aaah COBEDT enters the EDT command mode when 
this option select screen is transmitted. 
0S/3 EDT/COBOL COBOL EDITOR(V8.0/1) 


HAMAR EARTH HEREIN RAEN EKEEREEEEKRERREREEEREEEREEEEE 
Select Creation Mode : ap 

4=Create in COBOL Program Order 

2=Create Selected Portions of the COBOL Program 


Continuation Code 
NRM=Normal Continuation CMD=Enter EDT Command Mode 
EDT Command:@ 
HK KHER IKE ERE EEEEKREEREREKREEREKREEEEEREREEERKREREEEEEEEERERERERKEEEEEKEEE 


When you return to COBEDT by keying in 
eae | <@FORMAT, the first screen displayed is the 
identification division screen. 


0S/3 EDT/COBOL COBOL EDITOR(V8.¢/1)-Ordered Creation Mode 


HRI II IIT HAITI HII SIT KI TIKIT TIAMAT ITI KEE REET IMIR RARER IIE ER EEREREREEEIK 


Identification Division Line : 





A B 


IDENTIFICATION DIVISION. <Enter X if Line not to be created in Select Mode> 
PROGRAM- ID. 





[AUTHOR. -] 
LINSTALLATION. +] 
(DATE-WRITTEN. «] 
(DATE -COMPILED. . 
(SECURITY. +] 


Continuation Code Gg [Next Screen is Environment Division} 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode CON = Display Control Division Screen 
EDT Command:@ 


He He He He He He He Se HHH ITI IRI IIR MITT NII IIIA IAS IIIA ATTAIN EATER EE REREREREA 
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Example 2 









COBEDT enters the EDT command mode when 
this standard COBOL coding form screen is 
transmitted. 










SCREEN 
1 






0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)~-Selective Creation Mode 
Fe IIR III RI IIIT III TT TIAA I TITIES TIS ASIA AIO IA IIASA AS ASAI AS AAAI ISIN IIIA. 


Standard COBOL Coding Form 










ENOD-IT. 


CLOSE TRANFIL. 
STOP RUN. 











Continuation Code CHO} [Next Screen is the Standard COBOL Coding Form] 
NRM = Normal Continuation TMP = Display Creation Screen List 
CMD = Enter EDT Command Mode sss = Display Creation Screen sss 
RET = Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 







EDT Command:@ 
HHI IHRE IMI EIT RERERAURRARRE AER KIER REEEREEREEEEEKE 












When you return to COBEDT by keying in 
@FORMAT, another standard COBOL coding form 
screen with the current work-space line number 
is displayed. 






SCREEN 
2 









0S/3 EOT/COBOL COBOL EDITOR(V8.@/1)-Selective Creation Mode 


RAKE KKK KEE EEREEEEEEEREEEEEERREREREEEREREEREREREEEEEEREEEEKEEEKEEEKE 


Standard COBOL Coding Form Line Bee 







cA OB 





Continuation Code GMBH) [Next Screen is the Standard COBOL Coding Form] 
NRM = Normal Continuation TMP = Display Creation Screen List 
CMD = Enter EDT Command Mode sss = Display Creation Screen sss 
RET = Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 





EDT Command:@ 
BREE EAE REREEEE EERE REET EREREKEEEEEEEEEREEEEEREREEEEEREEEEREREEEEEE 
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@ 3.4. TERMINATING COBEDT 


To terminate a COBEDT session, key in either of the following 
commands: 


@COBOLAEND or @HALT 


The @COBOL END command 
terminates COBEDT 
but not EDT. 


The @HALT command 
terminates both COBEDT 
and EDT. 
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4. Creating COBOL Source Programs 
in Ordered Creation Mode 


4.1. GENERAL FEATURES OF THE ORDERED CREATION MODE 


Two creation modes 
Ordered 


Selective 


Screens displayed before 
reaching the working- 


@ storage section 





COBEDT has two operating modes, the ordered creation mode 
and the selective creation mode. The ordered creation mode is 
designed to assist the inexperienced users in developing a 
COBOL source program, whereas the selective creation mode is 
mainly for the experienced COBOL users. (See Section 5 for the 
selective creation mode.) 


In the ordered creation mode, COBEDT displays a sequence of 
creation screens. These screens provide the information to create 
the COBOL source statements in the standard COBOL program 
order up to but not including the working-storage section of the 
data division. The following two screens exemplify this sequence. 


OS/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 
KIMI IIHR KK IKK IKK HII IIIT IKKE EKER EREKREEEEKEERE KAMAE 
Identification Division Line nnnn.nnnn 

A 8 

IDENTIFICATION DIVISION. <Enter X if Line not to be created in Select Mode> 
PROGRAM- ID. 

{AUTHOR. 

LINSTALLATION. 

[DATE-WRITTEN. 

[DATE-COMPILED. 

[SECURITY. 


Continuation Code CRM) [Next Screen is Environment Division] 


NRM = Normal Continuation SEL = Enter Selective Creation Mode 


CMD = Enter EDT Command Mode CON 
EDT Command:@ 


HER HHIKIKERHKI REIKI IIIT IK ERE HEEKEEKEEEEREERERENEREEK 


Display Control Division Screen 
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The data division coding 
form screen 
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0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 
REE EEEEEERERKEEEKEKRKEREREREERAKKKEEEEEREEEKEERKEEEKEEEEEEEEKKEERKEEKEKKKKKKKKKE 


Environment Division Line nnnn.nnnn 


AB 


ENVIRONMENT DIVISION. <Enter X if Division is not to be created> 


CONFIGURATION SECTION. 
SOURCE -COMPUTER. UNIVAC-0S3 


[CWITH) DEBUGGING MODE]. <Enter X if Line is to be created> 


OBJECT-COMPUTER. UNIVAC-OS3 
([ (PROGRAM COLLATING) SEQUENCE (IS) 


<alphabet -name>] 


{SEGMENT-LIMIT IS <segment -number>}]. 


Continuation Code (HRB) [Next Screen is File Control] 


NRM 
CMD 
SCH 


Normal Continuation 

Enter EDT Command Mode 
Display SYSCHAN Screen 

ALP = Display Alphabet Name Screen 
CLN Display Class Name Screen 


EDT Command:@ 


SEL 
SN1 
SN2 
SSW 


Enter Selective Creation Mode 
Display Special-Names 1 Screen 
Display Special-Names 2 Screen 
Display SYSSWCH Screen 


RHEE R ERE HIRE REE EKER KEKE EEE KKK KEKE EERE REREREKEEEREKREEEEEKEEKEK 


Each screen serves as a template that provides spaces for you to 
fill in the required data to complete that portion of the program 


described. 


When the working-storage section is reached, COBEDT displays 
the data division coding form screen, which provides spaces to 
enter your data and allows you to request other creation screens 
to aid in your coding. The screen is redisplayed until either 
COBEDT is terminated or the procedure division coding form 


screen is requested. 





OS/3 EDT/COBOL COBOL EDITOR(V8.6/1)-Ordered Creation Mode 


HEARERS IKKE EERE TRAE 


Data Division Coding Form Line nnnn.nnnn 


Level# Data Description 


Continuation Code Gate (Next Screen is Data Division Coding Form} 


Normal Continuation SEL 
Enter EDT Command Mode Poc 
Display Input CD Screen DAT 
Display Output CD Screen CND 

REN 


NRM 
CMD 
ico 
oco 


EOT Command:@ 


Enter Selective Creation Mode 

Display Procedure Division Coding Form 
Display Data Item Description Screen 
Display Condition Name Screen 

Display RENAMES Screen 


HRHEKKEKKRIRREEE IRE RKIIKEERHKKEEEEHIKKRE EEE EE IRE EEE KERRANG KK 
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The procedure division 
coding form screen 
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The procedure division coding form screen provides spaces for 
coding the procedure division. During the process, you may also 
request the display of COBOL verb skeleton screens to assist you 
in coding the verbs. The procedure division coding form screen is 
redisplayed until COBEDT is terminated. 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 
KKK KKK EKER EKER REKEEEEEEEEEEEEEEREEEKKKKEEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKRKEK 
Procedure Divsion Coding Form Line nnnn.nnnn 
cla 


I 
I 
| 
I 
| 
| 
| 
| 
I 


| 
Continuation Code » {Next Screen is Procedure Division Coding Form] 
NRM = Normal Con ation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode vvvvvvvv = Display vvvvvvvv Verb Skeleton 
EDT Command:@ 
KKK KKK KKK KH KKK IK KEK IKK IK IIH IKK KKK TT KIKI EERIE EKER KEE EERE KEKEEEEREEK 








NOTE: 


Appendix A describes the COBOL verb skeleton screens. 


4.2. OPERATING IN ORDERED CREATION MODE 


Entering the Ordered Creation Mode 


To create your COBOL source program 
via the ordered creation mode, you must 08/5 €07/COBOL 


eetii striae ti etietetics PPLE LEED ore Ley 


enter option 1 in the select creation Os oe 
mode field of the option select screen. gosnaare:salgeind ers lonssot ene sennirne 
When this screen is processed, the 

identification division screen, which is 

the first screen in the ordered creation 


mode, is displayed. 





Keying in Source Data on the Screens 


When an ordered creation mode screen is displayed, the cursor 
is in the line field of the screen. To key in your source data, 
advance the cursor to the desired user fields and then key in 
your data. Pressing the TAB FORWARD key advances the cursor 
from field to field. 
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Valid level numbers 


An error found 


An erroneous entry — OE 


How to correct an error 


Multiple errors 
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COBOL Syntax Error Detection and Handling 


When an ordered’ creation screen is transmitted, COBEDT 
verifies the validity of the data entered on the screen before 
creating the source lines. For a template display screen (such as 
the environment division screen), COBEDT checks whether all 
required data for that screen is entered. For a data division 
coding form screen, COBEDT checks whether the level numbers 
entered are valid. (Note that 01 through 49, 66, 77, and 88 are 
valid level numbers.) For a procedure division coding form screen, 
COBEDT checks whether the section headers and the paragraph 
names are started in column 8 and checks whether every 
procedure division sentence entered contains a valid COBOL verb 
keyword. However, COBEDT does not check the syntax of the 
verb. 


If an error is found, an error message appears on the last two 
lines of the current screen and the location of the error is 
indicated by a blinking field. For example: 





To correct the error, reposition the cursor to the beginning of the 
blinking field (if it does not automatically reposition itself to the 
error field) and key in the correct data. If you choose not to 
correct it, simply retransmit the screen. The source lines are then 
created and written to the work-space file as they are, and no 
additional action is taken. Multiple errors on a screen are handled 
by COBEDT one at a time. 
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Why enter the selective 
creation mode? 


Why enter the EDT 
command mode? 
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The Work-Space Line Numbers 


In ordered creation mode processing, the current work-space line 
number displayed on an ordered creation mode screen can’t be 
altered. To insert new lines into those lines already created, enter 
the selective creation mode and code these new lines on the 
standard COBOL coding form screen. However, in this case, you 
must make certain that these new lines are placed properly in the 
work-space file to avoid the overwriting of the lines. (See the 
first example in Section 6.) 


Entering Selective Creation Mode or EDT Command Mode 


During ordered creation mode processing, you may temporarily 
enter the selective creation mode or the EDT command mode by 
keying in the required continuation code on the current ordered 
creation screen. 


Enter the selective creation mode to display a standard COBOL 
coding form, a COBOL verb skeleton, the COBOL program 
skeleton, or any ordered creation mode screen that cannot be 
requested directly from the current screen. 


Enter the EDT command mode to edit your source lines with the 
various EDT commands in the EDT environment. 


When the screen is transmitted, COBEDT first processes source 
lines entered and then enters either the EDT command mode or 
the selective creation mode. Upon return, COBEDT resumes 
ordered creation mode processing. 
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4.3. SAMPLE CREATION SESSION 





This sample session shows how to create a COBOL source 
program in the ordered creation mode. The example starts with 
choosing the creation mode on the option select screen. We then 
code the source statements in the standard COBOL program 
order via a sequence of creation screens. The example ends with 
writing the program to a permanent SAT file. 


OPTION SEEEey SCREEN 
| 


0S/3 EDT/COBOL COBOL EDITOR(V8.@/1) 


RRA RRR ERK RE REG RIREK REE EEUU REKREKRERERER 
Select Creation Mode : Gp 


1=Create in COBOL Program Order 
2=Create SELECTED Portions of the COBOL Program 


















Continuation Code i 
NRM=Normal Continuation 


EDT Command:@ 
RRA HRERREREEKREKRERERRERUREEEE KHER EERE EERE RHEE REREEEEEEEEEERERER TKK 







CMD=Enter EDT Command Mode 









On this screen, we enter 1 in the select creation 
mode field and keep NRM in the continuation 
code field. Upon transmission, the identification 
division screen is_ displayed, with current 
work-space line number 1. 
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SCREEN IDENTIFICATION DIVISION SCREEN 


0S/3 EDT/COBOL COBOL EDITOR(V8.6/1)-Ordered Creation Mode 


RK KHER REET RRR ERE REE ERE ERE EEUEEREREEEREEREREEE EERE EREREREREREREUREEK 











Identification Division 


A 8 

IDENTIFICATION DIVISION. <Enter X if Line not to be created in Select Mode> 
PROGRAM-ID. 

{AUTHOR. BRMIeh Tas 

LINSTALLATION. BULBSz Ne 

{DATE-WRITTEN. 

[DATE-COMPILED. 

(SECURITY. 





Continuation Code {Next Screen is Environment Division] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode CON = Display Control Division Screen 


EDT Command:@ 
RRR REERERKEERKEEEEER EERE EEEEEREEREREREEEEEKKEKREEEEKEREKREKEEREEKREKKHKKK 


Here, we fill in our source data and select the 
NRM continuation code. Upon transmission, the 
environment division screen is displayed after the 
SOURCE source lines are created and placed in the 


LINES 2 il 
CREATED work-space file. 


1.0000 IDENTIFICATION DIVISION. 
2.0000 PROGRAM-ID. PROG1. 
3.0000 AUTHOR. J.JONES. 

4.9000 INSTALLATION. UNIVAC. 


es 
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ENVIRONMENT DIVISION SCREEN 
SCREEN VIRO Cc 
3 


0S/3 EDT/COBOL 





COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


RARERERRRERERKEERHEEEERERRRREEERERREEEEHERERREREREERERERRERHREERREREREEEEEREERKEKIK 


A OB 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. UNIVAC-0S3 
(CWITH) DEBUGGING MODE). 
OBJECT-COMPUTER. UNIVAC-0S3 
[CPROGRAM COLLATING) SEQUENCE (1S) 
[SEGMENT-LIMIT IS 
Continuation Code GM [Next Screen is File Control] 





Environment Division Lin 


<ENTER X if Division is not to be created> 


<Enter X if Line is to be created> 


<alphabet -name>] 
<segment-number>]. 








NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode SN1 = Display Special-Names 1 Screen 
SCH = Display SYSCHAN Screen SN2 = Display Special-Names 2 Screen 
ALP = Display Alphabet Name Screen SSW = Display SYSSWCH Screen 

CLN = Display Class Name Screen 


EDT Command:@ 
RRR REAR AER UUR ERENT REEERREREUREREREEREREEREREAEEKKEENE 


SOURCE 
LINES 
CREATED 


5.0000 
6.0000 
7.0000 
8.0000 








On this screen, the lines not enclosed in brackets 
are created by default. Thus, for our program, we 
simply press the TAB BACK key to move the 
cursor to the bottom of the screen and then 
transmit. The file contro! screen is displayed, with 
current work-space line number 9, after the 
source lines are created and placed in the 
work-space file. 





ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. UNIVAC-OS3. 
OBJECT-COMPUTER. UNIVAC-0S3. 
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FILE CONTROL SCREEN 
SCREEN 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


KERR REEKKEEEEREREEE REE KER EEE EEE EERE EERE UKE REEEEREHEEEEERERE 






















File Control Line 


A B 
INPUT-OUTPUT SECTION. <Enter X if Line is not to be created in Select Mode> 
FILE-CONTROL. 


Continuation Code (ERP [Next Screen is Data Division Coding Form] 


NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode REL = Relative File Select 

CDR = Cardreader File Select INX = Indexed File Select 

CDP = Cardpunch File Select TAP = Tape File Select 

PRT = Printer File Select DIS = Sequential Disk File Select 
10C = Display I-0 Control Screen 


EDT Command:@ 
KKEKEKEREKEREKEEEEREKEEEEEEEEEEERREEEKEKKEEEKEKREEREEEKEEEKREEKEREEKREEEEKEEEKEEKEEEKEENE 














On this screen, we overwrite the default 
continuation code NRM with INX to request the 
indexed select screen for coding the next part of 
our program, the INDEXED SELECT clause. Upon 
transmission, COBEDT creates the source lines, 
places them in the work-space file, and then 
displays the requested screen. 


SOURCE 
LINES 
CREATED 










9.0000 INPUT-OUTPUT SECTION. 
10.0000 FILE-CONTROL. 
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T SCREEN 
SCREEN INDEXED SELECT SC 
5 Se : ee 


0S/3 EDT/COBOL COBOL EDITOR(V8.6/1)-Ordered Creation Mode 


RREKKEEEKREEEKEREREEREEEEEEREE EERE EEE EEE REE EKEREEREREEEREEEEEKEEEEERENMEEEEKER 























Indexed Select Line $4 
A B 
SELECT 
<file-name> 
ASSIGN (TO) DISC-ERLUIEES <l fdname>-(krF, v> 
[RESERVE <1,2> AREA(S')] 
ORGANIZATION (IS) INDEXED 
{ACCESS (MODE IS) BSSeUISasee<SEQUENTIAL, RANDOM, DYNAMIC>] 
RECORD (KEY IS) BEERS) <data-name> 
{(FILE) STATUS (IS) <data-name>}. 
Continuation Code GH) [Next Screen is Data Division-FD] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode FST = Display File Select Type Codes 
fff = Next File Select Code ALK = Alternate Record Keys Required 


EDT Command:@ 


RARER ERE ERE EERE EKER ERE HEE RIKKI REM RTKREEEAEEMREKE REE EEEEREEIEREEMEKEMERIEN 










On this screen, we enter our source data and 
select the NRM_ continuation code. Upon 
transmission, COBEDT creates the source lines, 
places them in the work-space file, and then 
displays a data division FD screen with file name 
TRAMNFIL in its FD file-name field. 










SOURCE 
LINES 
CREATED 










11.0000 SELECT TRANFIL 

12.0000 ASSIGN TO DISC-TRANFIL-V 
13.0000 ORGANIZATION IS INDEXED 
14.9000 ACCESS MODE IS SEQUENTIAL 
RECORD KEY IS TRAN-KEY. 


TS 
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WE DATA DIVISION - FD SCREEN 
= 6 came 





0S/3 EDT/COBOL 


HK AERERER EEK KEE REEEENKEREKREREKEKREEEKKREREEREE EEE EK EREREREEEEEREEREEEERERREEEEE 


Data Division ~ File Section (FD) Line #8 





[BLOCK CONTAINS 


COBOL EDITOR(V8.0/1)-Ordered Creation Mode 





<file-name> 
<integer> [TO <integer>] 


<RECORDS , CHARACTERS> J 


{RECORD (CONTAINS) <integer> [TO <integer>] (CHARACTERS) ) 
LABEL RECORD(S) CARE) SSD DEGS <STANDARD, OMITTED ,data-name> 
(VALUE OF [FILE-ID (1S) <data-name>] 


[PASSWORD (IS) 
{CODE-SET (IS) 


EDT Command: @ 


SOURCE 
LINES 
CREATED 





Continuation Code @i#M [Next Screen is FD Data Record Form} 


NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode LIN = Linage Screen Required 
SDD = Current File is a Sort File-Display SD Screen 


RHEE RIERA KIE MRI EERIE KRG IKIK HK EEEEEEERERHEEEEEEREREEEEEK 


<data-name>] 
<alphabet -name>]. 





We enter our source data and select the NRM 
continuation code. (Note that file name TRANFIL 
is automatically displayed by COBEDT.) Upon 
transmission, COBEDT first creates the DATA 
DIVISION and FILE SECTION source lines since 


this FD is the first entry in this division and 
section. Then it creates the source lines from the 
screen. After placing the source lines in the 
work-space file, COBEDT displays the FD data 
record form screen. 





16.0000 DATA DIVISION. 
17.0000 FILE SECTION. 
18.0000 FD TRANFIL 


19.9000 LABEL RECORDS ARE STANDARD. 
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0S/3 EDT/COBOL 


KEK EHREEERKEEEEEERRHERRERKEE EEE EIR RR EREEEEEREKEEEREEEEERERERREEREREREEEEER 





o1 BGE eee 
@3 TRAN-KEY. 





05 
@5 
es 


TRAN- PUB 
TRAN-REPORT 
TRAN- SORT 
TRAN- SEQUENCE 


@3 TRAN-VARIABLE 


| 
| 
| 
| 
| 05 
| 
I 
I 





Continuation Code @aBb 


NRM = Normal Continuation SEL 


SCREEN FD DATA RECORD FORM SCREEN 
7 — _ eee ER Ona 


COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


FD Data Record Form Line 
41 








<data-record-name> 


PIC XX. 
PIC 99. 
PIC X(23). 
PIC 9¢4). 
PIC X 


OCCURS 41 TO 100 TIMES 
DEPENDING ON SYS-REC-SIZE. 


{Next Screen varies] 
Enter Selective Creation Mode 


CMD = Enter EDT Command Mode RDP = Display This Screen Again 


EDT Command:@ 
RHEE EKREEEEEEEEREKEEKEEEEEERREKREEKREREREEREEREREKEKEEHREERREEEKEKKKKKKKKKKKKEHKE 


SOURCE 
LINES 
CREATED 


20.0000 
21.0000 
22.0000 
23.0000 
24.0000 
25.0000 
26.0000 
27.0000 
28.0000 





Again, we enter our source statements and 
select the NRM_ continuation code. Upon 


transmission, COBEDT creates the source lines, 
places them in the work-space file, and then 
displays the data division coding form screen. 





@1 TRAN-OUT. 


t) 


3 TRAN-KEY. 

@5 TRAN-PUB PIC XX. 
@5 TRAN-REPORT PIC 99. 
@5 TRAN-SORT PIC X(23). 


@5 TRAN-SEQUENCE PIC 9(4). 


@3 TRAN-VARIABLE PIC X 


OCCURS 1 TO 100 TIMES 
DEPENDING ON SYS-REC-SIZE. 
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SCREEN DATA DIVISION CODING FORM SCREEN 
8 ee : : ee - 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


HHI IG IIA TRIER IIIT TIRE RETIRE ETRE REESE ERE EERE ERE EREEEEEEEEEEEER 








Data Division Coding Form Line 


Level# Data Description 
OUMMY - OUT. 

DUMMY -KEY. 

DUMMY - PUB PIC XX. 

DUMMY - REPORT PIC 99. 

DUMMY - SORT PIC x(23). 
DUMMY - SEQUENCE PIC 9(4). 
DUMMY - VARTABLE PIC X(100). 
SYS-REC-SIZE PIC 9(4) VALUE @. 


















Continuation Code fP oc [Next Screen is Data Division Coding Form] 


NRM = Normal Continuation SEL = Enter Selective Creation Mode 

CMD = Enter EDT Command Mode PDC = Display Procedure Division Coding Form 
ICD = Display Input CD Screen DAT = Display Data Item Description Screen 
OCD = Display Output CD Screen CND = Display Condition Name Screen 


REN = Display RENAMES Screen 


EDT Command:@ 
HEIKKI KIA KIKI IIIT HITE ERITREA EERE EERE EREEEREREK 








Here, we enter our source statements for the 
working-storage section and overwrite the 
continuation code NRM with PDC to request the 
procedure division coding form screen. be 
displayed next. Upon transmission, COBEDT first 
creates the WORKING-STORAGE SECTION source 
line and then the source lines entered, since the 
latter lines are the first entries in this section. As 
you can see, COBEDT also checks the level 
numbers and automatically indents data 
description entries reflecting the hierarchy of the 
data. After placing these source lines in the 
work-space file, COBEDT displays the procedure 
division coding form screen. 












SOURCE 
LINES 
CREATED 


29.0000 WORKING-STORAGE SECTION. 

30.9000 @1 DUMMY -OUT. 

31.6006 @3 DUMMY-KEY. 

32.0000 @5 DUMMY -PUB PIC XX. 
33.9000 @5 DUMMY -REPORT PIC 99. 
34.0000 @5 DUMMY -SORT PIC X(23). 
35.9000 @5 DUMMY -SEQUENCE PIC 9¢4). 
36.9000 @3 DUMMY -VARIABLE PIC X( 100). 


37.9900 77 ~=SYS-REC-SIZE PIC 9(4) VALUE 9. 
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SCREEN PROCEDURE DIVISION CODING FORM SCREEN 
9 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


HHI HK IK IK KKK KHIR IKKE RIK TKK EERIE KEKE EERE RAK EER HERE EEEKEKEKEEREREKREEEEEKE 














Procedure Division Coding Form Line 38 





PROCEDURE DIVISION. 
PRIMARY -PARAGRAPH. 


OUTPUT TRANFIL. 

“RA” TO OUMMY - PUB. 

99 TO DUMMY -REPORT. 

ALL “B” TO DUMMY-SORT. 

1 TO DUMMY - SEQUENCE. 

ALL “CC” TO OUMMY-VARTABLE. 





Continuation Code GjRM) [Next Screen is Procedure Division Coding Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode’ vvvvvvvv = Display vvvvvvvv Verb Skeleton 


EDT Command: @ 


WHERE KIKI MT E RE KKEEEEHEREKEUEREREKERERREERKEREEARREEREREERERUEEEEE 


On this screen, we enter our source statements 
and select the NRM continuation code. Upon 
transmission, COBEDT creates the source lines, 
places them in the work-space file, and then 
displays another procedure division coding form 
screen. 









SOURCE 
LINES 
CREATED 





38.9000 PROCEDURE DIVISION. 

39.9000 PRIMARY - PARAGRAPH. 

40.9000 OPEN OUTPUT TRANFIL. 
41.0000 MOVE “AA” TO DUMMY -PUB. 
42.9000 MOVE 99 TO DUMMY-REPORT. 
43.0000 MOVE ALL “B” TO DUMMY -SORT. 
44.0000 MOVE 1 TO DUMMY-SEQUENCE. 


45.0000 


MOVE ALL “C” TO DUMMY-VARIABLE. 
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PROCEDURE DIVISION CODING FORM SCREEN 





SCREEN 
on WL 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


III HII AKIRA III TRIAS MIKI ISAIAH IIASA IERIE EEEEREREEEEERER 
















Procedure Division Coding Form 


cl 
LOOP -HERE. 


ADD 1 TO SYS-REC-SIZE. 
MOVE DUMMY-OUT TO TRAN-OUT. 
WRITE TRAN-OUT INVALID KEY 


Continuation Code [Next Screen is Procedure Division Coding Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode vvvvvvvv = Display vvvvvvvv Verb Skeleton 











EDT Command:@ 


HII IH TT RIKI TIIIIIEDMIAAAAS IIIA ASIA AMIS AIDA ARIE IIASA TETAS EEEEEN 


Here, we enter more procedure division source 
statements. Because we need assistance in 
coding the next verb DISPLAY, we overwrite the 
default code NRM with DISPLAY to request the 
DISPLAY verb skeleton. Upon transmission, 
COBEDT creates the source lines, places them in 
the work-space file, and then displays the 
requested screen. 

















SOURCE 
LINES 
CREATED 


46.0000 LOOP -HERE. 

47.0000 ADD 1 TO SYS-REC-SIZE. 
48.0000 MOVE DUMMY-OUT TO TRAN-OUT. 
49.0000 WRITE TRAN-OUT INVALID KEY 
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SCREEN DISPLAY STATEMENT SCREEN 


11 





0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Selective Creation Mode 


RHEE KKK KERR REE EKER KEK EIR ERE ERE REE KERIKERI KHIR ER ERE IAKRURERKRKEI KI 
Display Statement 
DISPLAY {identifier-1,Literal-1} [,C{identifier-2,literal-2}] ... | 
{UPON mnemonic-name [USING (identifier-3,literal -3}]] 
RRR KER ERR EEE EEK EEK EERE ERE KEE KERERE REE REE EREKEREEEEREREEERUEREKEEEEE 


Procedure Division Coding Form Line! 


DISPLAY “INVALID KEY” TRAN-KEY GO TO END-IT. 
IF SYS-REC-SIZE < 100 

ADD 1 TO DUMMY - SEQUENCE 

GO TO LOOP-HERE. 





Continuation Code GAM) [Next Screen is Procedure Division Coding Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode vvvvvvvv = Display vvvvvvvv Verb Skeleton 


EDT Command:@ 


HHI KKH KKK KEKE EKER EEE KKK EEE KEKE REREKEEEKREKEEREEKEEEEEEKKEEKEKKEKEKKKKKKKE 


On this screen, we code the DISPLAY verb and 
several additional procedure division source 
statements. Upon transmission, COBEDT creates 
the source lines, places them in the work-space 
SOURCE HG. and then returns to a procedure division 
LINES coding form screen. 
CREATED 











© 50.0000 DISPLAY “INVALID KEY” TRAN-KEY GO TO END-IT. 
— 51.0000 IF SYS-REC-SIZE < 100 
52.0000 ADD 1 TO DUMMY -SEQUENCE 


53.0000 GO TO LOOP-HERE. 
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PROCEDURE DIVISION CODING FORM SCREEN 





& SCREEN 
12 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


KI IKI HH TITRE KI THAT TTA ER ITE REREAUEREEEEEEEEEER 












Procedure Division Coding Form 


cA. 8B 
D-IT. 


CLOSE TRANFIL. 





STOP RUN. 


Continuation Code (CMD [Next Screen is Procedure Division Coding Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode  vvvvvvvv = Display vvvvvvvv Verb Skeleton 


EDT Command:@ 
HHH IIIS RHR KIRK KHAKI ERE HHT TEAK HEISE EEE EERE EERE IK 





Now we enter the last paragraph for our program 
and the CMD continuation code. Upon 
transmission, COBEDT creates the source lines. 


After placing the source lines in the work-space 
file, COBEDT enters the EDT command mode, 
and the next work-space line number (57.0000) 
appears on the workstation screen by itself. 


SOURCE 
LINES 
CREATED 





54.0000 END-IT. 
~—655 0000 CLOSE TRANFIL. 


| 56.0000 STOP RUN. 
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At this point, the creation of our program is 
complete. Let's see what our entire program 
looks like in the work-space file by using the 
@PRINT command before we terminate COBEDT. 












57. 0000> Qi sake 





1.0000 
2.9000 
3.9000 
4.9000 
5.0000 
SCREEN 6.0000 
3 7.0000 
8.0000 
SCREEN 9.0000 
4 10.0000 
11.0000 
12.0000 
ee 13.0000 
14.0000 

15.0000 
16.0000 
17.0000 

















SCREEN 




















27.0000 
28.0000 
29.0000 
30.0000 
31.9000 
















36.9000 
37.0000 









IDENTIFICATION DIVISION. 
PROGRAM-ID. PROG1. 
AUTHOR. J.JONES. 
INSTALLATION. UNIVAC. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. UNIVAC-OS3. 
OBJECT-COMPUTER. UNIVAC-0S3. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT TRANFIL 
ASSIGN TO DISC-TRANFIL-V 
ORGANIZATION IS INDEXED 
ACCESS MODE IS SEQUENTIAL 
RECORD KEY IS TRAN-KEY. 
DATA DIVISION. 
FILE SECTION. 


6 18.0000 FD TRANFIL 

19.0000 LABEL RECORDS ARE STANDARD. 
20.0000 @1 TRAN-OUT. 
21.0000 03 TRAN-KEY. 
22.0000 @5 TRAN-PUB PIC XX. 
23.9000 @5 TRAN-REPORT PIC 99. 

ee 24.0000 95 TRAN-SORT PIC X(23). 
25.0000 05 TRAN-SEQUENCE PIC 9(4). 
26.9000 03 TRAN-VARIABLE PIC X 


OCCURS 1 TO 160 TIMES 
DEPENDING ON SYS-REC-SIZE. 
WORKING-STORAGE SECTION. 
@1 DUMMY-OUT. 
@3 DUMMY-KEY. 


32.9000 @5 DUMMY -PUB PIC XX. 
aia 33.0000 @5 DUMMY-REPORT PIC 99. 

34.0000 @5 DUMMY-SORT PIC X(23). 

35.0000 @5 DUMMY -SEQUENCE PIC 9¢4). 


@3 DUMMY-VARIABLE 


PIC X(100). 
77 ~=SYS-REC-SIZE PIC 9(4) VALUE @. 
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or ns SS SSS SS 


38.9000 PROCEDURE DIVISION. 


39.0000 PRIMARY -PARAGRAPH. 
40.0000 OPEN OUTPUT TRANFIL. 
SCREEN 41.0000 MOVE “AA” TO DUMMY-PUB. 
9 42.0000 MOVE 99 TO DUMMY-REPORT. 
43.0000 MOVE ALL "B” TO DUMMY-SORT. 
44.0000 MOVE 1 TO DUMMY- SEQUENCE. 
45.0000 MOVE ALL “C” TO DUMMY-VARIABLE. 
46.0000 LOOP -HERE. 
SCREEN 47.0000 ADD 1 TO SYS-REC-SIZE. 
10 48.0000 MOVE DUMMY-OUT TO TRAN-OUT. 
49.0000 WRITE TRAN-OUT INVALID KEY 
50.0000 DISPLAY “INVALID KEY” TRAN-KEY GO TO END-IT. 
SCREEN 51.0000 IF SYS-REC-SIZE < 100 
1 52.0000 ADD 1 TO DUMMY-SEQUENCE 
53.0000 GO TO LOOP-HERE. 
54.0000 END-IT. 
tae 55.0000 CLOSE TRANFIL. 


56.9000 STOP RUN. 
57 . OOO O>MIoe):folmum a1) 


AUC AWRITE MO=PROG1,FILE=TESTFIL, VSN=A00011,SAT=YES,SIZE=1 
57 .9000> 














Now, we key in the @COBOL END command to 
end this COBEDT creation session. We then write 
this program (PROG1) to a permanent SAT file 
(TESTFIL) on disk volume A00011. Again, line 
number 57.0000 is displayed, ready to accept 
more entries. 
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Compiling the Sample COBOL Program @ 


After creating and saving sample program PROG1, we want to 
compile it to see whether there are any compilation errors. We 
must, therefore, write and run a job control stream to invoke the 
COBOL compiler, as shown in the following sample workstation 
entries: 


57 .0000> EDS 
1.00000 


2.0000> EO COZ] GET ReS ai CREE Oe) 


3.0000> ,ERRFIL=(MYERR, AQQO11,ERR.LST) 
4. 0000 


5. O000> ERE EEES (SRO ia Ree Ce SS eS een ee 


6. 00007 RELI 


First, delete the copy of program PROG1 in the 
work-space file with the @DELETE command. 


Second, create a job control stream to compile 
the program. Also, define an error file for 
compile-time diagnostics (ERRFIL parameter), if 
any. 





Third, save the job control stream in SAT file 
FILE.JCS on disk volume AQ0011. 


Fourth, end EDT with the @HALT command. 


Now, enter SYSTEM mode. 


Finally, key in the RV workstation command to 
run the job control stream: 


RV JOBNAM: (FILE. JCS,A90011) 
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After the job is executed, a message indicating successful or 
unsuccessful compilation is displayed at the workstation. 


If the compilation is successful, we can proceed to link and 
execute it. For information, see the 1974 ANS! COBOL 
programmer reference and the job control user guide. 


lf there are compilation errors, instead of waiting for the compiler 
to print the error listing, we can immediately activate the EDT 
error file processor (EFP) to display both the errors and their 
corresponding source lines. We can then correct and recompile 
the program. For more information on EFP, see the general editor 
(EDT) user guide/programmer reference. For editing COBOL 
programs, see Section 6 in this manual. 
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4.4. ORDERED CREATION MODE SCREENS 


CON code 


RDP code 


All user data is optional. 


Return to ID division 
screen 





This section describes all the available ordered creation mode 
screens. 


Control Division Screen 


CONTROL DIVISION 
4-1 oe 


0S/3 EOT/COBOL COBOL EDITOR(V8.@/1)-Ordered Creation Mode 


REREERERRAEUEERKEEEEMEREUERERUKEEREREREURIEHEREREUKEHERAEEEEHEEEEEREEEREEREKEREREENER 







Control Division Line nann.nnnn 
A B 
CONTROL DIVISION. <Enter X if CONTROL DIVISION and ALPHABET SECTION 
ALPHABET SECTION. are not to be created in Select Mode> 
[SOURCE-ALPHABET (CHARACTERS ARE) 
<literal> [THRU <literal>) 
<literal> [THRU <literal>} 
<literal> [THRU <literal>] 
<literal> [THRU <literal>] 
[MESSAGES (ARE) }. 
Continuation Code GURN) [Next Screen is Identification Division] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode ROP = Redisplay This Screen 


EDT Command:@ 
RRA ERE EREREEREREEEREREKKEEKEKEKEEEEREEEEEKKEARETITEE 


In a COBOL source program, the control division is optional. If 
included, it must be the first entry in the program. The control 
division screen can be displayed by entering the CON 
continuation code on the identification division screen (screen 
4-2). Entering the RDP continuation code on the current control 
division screen redisplays the control division screen. 


All user data on this screen is optional. COBEDT doesn’t create 
any source lines if no data is entered. In ordered creation mode 
processing, although the control division screen can be 
redisplayed, COBEDT generates the CONTROL DIVISION and 
ALPHABET SECTION source lines only once. 


After you’ve completed your control division entries, return to 
the identification division screen with the NRM continuation code. 
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© PROGRAM.-ID 


Control division 





Identification Division Screen 


IDENTIF N DIVISION 
DE ICATION DIVISIO 
i 4-2 _ nn 


OS/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 
MEHR RRR ERR REE EERE AHR EEREREERERRERRRREEKEKEEEEEEREEE 





Identification Division Line nnnan.nnnn 
A B 
IDENTIFICATION DIVISION. <Enter X if Line not to be created in Select Mode> 
PROGRAM- ID. 
(AUTHOR. 
{INSTALLATION. 
[DATE-WRITTEN. 
[DATE-COMPILED. 
[SECURITY. 


Continuation Code [Next Screen is Environment Division] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode CON = Display Control Division Screen 


EDT Command:@ 
PH EEE HERE EERE KEE EERE EEERRERERERERREREEEEREKEEEEEEREREE 





The identification division screen assists you in creating the 
identification division, an essential part of a COBOL source 
program. It’s the first screen displayed after entering the ordered 
creation mode. You must fill in your PROGRAM-ID if you select 
the NRM continuation code. 


If you want to include the control division in your program, you 
must not enter the program ID or other source data but overwrite 
the continuation code NRM with CON to display the control 
division screen. The control division must be coded before the 
identification division. After you complete your control division, 
transmitting the control division screen with the NRM continuation 
code returns you to the identification division screen. 
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Environment Division Screens 


SCREEN ENVIRONMENT DIVISION 
4-3 ve wae 
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RARERREREEERRRREERERERERENREEEEREREAREREEREERREERREREEREEEERRRERERRREREEREERREEEE 








Environment Division Line nann.nnnn 

A B 
ENVIRONMENT DIVISION. <Enter X if Division is not to be created> 
CONFIGURATION SECTION. 
SOURCE -COMPUTER. UNIVAC-0S3 

((WITH) DEBUGGING MODE}. <Enter X if Line is to be created> 
OBJECT-COMPUTER. UNIVAC-0S3 

[CPROGRAM COLLATING) SEQUENCE (IS) <alphabet -name>] 

(SEGMENT-LIMIT IS  <segment-number>}). 


Continuation Code Gi [Next Screen is File Control] 


WRM = Normal Continuation SEL = Enter Selective Creation Mode 

CMD = Enter EDT Command Mode SN1 = Display Special-Names 1 Screen 
SCH = Display SYSCHAN Screen SN2 = Display Special-Names 2 Screen 
ALP = Display Alphabet Name Screen SSW = Display SYSSWCH Screen 

CLN = Display Class Name Screen 


EDT Command: @ 
REEREARARAREKEEEEREEEREEEEEREREEEERERREKREREREREREEEREEERERRAEEERREEEEEREREEEEREE 





The environment division screen provides the _ information 
necessary to create the basic portion of the environment division 
and to display any one of the six special-names screens (screens 
4-5 through 4-10). This screen is displayed when COBEDT 
completes processing the identification division screen. If no user 
data is entered, COBEDT still creates the source lines for those 
not enclosed in brackets. You may, however, inform COBEDT not 

The X option for to create this portion of the division by entering an X in the 

environment division ENVIRONMENT DIVISION line. If you enter an X in the 
ENVIRONMENT DIVISION line and a code CMD or SEL in the 
continuation code field, upon returning to ordered creation mode 
processing, the environment division screen is redisplayed. On 
the other hand, if you have not entered an X in that line, upon 
return, the special-names select screen (screen 4-4) is displayed, 
allowing you to request a special-names screen. 
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SPECIAL-NAMES SELECT 
4-4 , , 
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RHR He EERE EERE REAR EAEEREEE EEE EEE RREEEERERRERERREKRRRERREREEEENEERREREEE 





Special-Names Select Screen 


SN1 = Display Special Names 1 Screen SSW = Display SYSSWCH Screen 
SN2 = Display Special Names 2 Screen ALP = Display Alphabet-Name Screen 
SCH = Display SYSCHAN Screen CLN = Display Class-Name Screen 


Continuation Code GH {Next Screen is File Control} 
NRM = Normal Continuation | SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode sss = Next Special-Names Screen 
EDT Command:@ 
RRR RRR EERE EERE ERERREREERREREREREEERENERERRREEEEREREEEEEEEEERHEEREEEREEEE 


The special-names select screen lists the available special-names 
screens and their display codes. 


This screen is displayed each time you reenter the ordered 
creation mode after temporarily entering either the EDT command 
mode or the selective creation mode from one of the following 
screens: 


m= The environment division screen without an X entered in its 
ENVIRONMENT DIVISION line, but with a code CMD or SEL 
in its continuation code field. 


m <Any one of the special-names screens with source data 
entered and a code CMD or SEL in its continuation code 
field. (See screens 4-5 through 4-10 for special-names 
screens.) 


The following special-names screens provide all the information 
to create the special-names section of the environment division. 
There are six  special-names screens. The SYSCHAN, 
alphabet-name, SYSSWCH, and class-name screens are for 
coding the portions of the special-names section indicated by 
their names. Special-names screen 1 and 2 are for coding the 
rest of the special-names section. Each special-names screen also 
provides the information to display any one of the other five 
special-names screens. 
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SN1 code 





All user data on each speciai-names screen is optional. COBEDT 
doesn't create any source lines if no data is entered. If you 
temporarily enter either the EDT command mode or the selective 
creation mode from a special-names screen without filling in any 
source data on the screen, upon returning to ordered creation 
mode processing, the same screen is redisplayed. On the other 
hand, if you have filled in the source data, upon return, the 
special-names select screen is displayed, allowing you to request 
another special-names screen. 


In ordered creation mode processing, even though several 
special-names screens can be used, COBEDT generates the 
SPECIAL-NAMES header only once. COBEDT also places a period 
at the end of the special-names section. 


SPECIAL-NAMES SCREEN 1 
4-5 , , — 


0$/3 EDT/COBOL COBOL EDITOR(V8.@/1)-Ordered Creation Mode 
RRR RRR IRI MERI REREAD 







Special-Names Screen (1 of 6) Line nnan.nnnn 
A B 
SPECIAL-NAMES. <Enter X if Header is not to be created in Select Mode> 
[SYSSCOPE IS <mnemonic-name>] 
[SYSWORK IS <mnemonic -name> 
ASSIGN (TO) <l fdname-1>)} 
(SYSFORMAT IS <mnemonic-name> 
ASSIGN (TO) <\ fdname-2>] 


{CURRENCY (SIGN) IS <lLiteral>] 
{DECIMAL-POINT IS COMMA]. <Enter X if Line is to be created> 


Continuation Code GgMM [Next Screen is File Control} 


NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode SN2 = Display Special-Names 2 Screen 
ALP = Display Alphabet-Name Screen SCH = Display SYSSCHAN Screen 

CLN = Display Class-Name Screen SSW = Display SYSSWCH Screen 


EDT Command: @ 


RRERRAEEKEEREEEERRRRRRRRERRRREREEEEEERERERREEREREREEEEEEREEREEEEEEREREREREREHERK 


Special-names screen 1 is displayed when requested by the SN1 
continuation code from the environment division screen, the 
special-names select screen, or other special-names screens. 


After the screen is transmitted with the desired source data 
entered, COBEDT first creates the SPECIAL-NAMES source line if 
not already created and then other source lines from the screen. 
Keeping the code NRM in the continuation code field indicates 
that you have finished all your entries for the special-names 
section and the period displayed on the screen is generated. 
Otherwise, the period is generated at the end of the section. 
Also, if there are more entries for the section, COBEDT moves 
the source lines created for the CURRENCY SIGN IS and 
DECIMAL-POINT IS COMMA items to the end of the section. 
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SPECIAL-NAMES SCREEN 2 
ee 4-6 ee ; 
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RHEE AREER RER ERE ERRERERERRERREEKEREEREREREEEREREREEEEEREREERTEREEEKER 








Special-Names Screen (2 of 6) Line nnnn.nnnn 
A B 
SPECIAL-NAMES. <Enter X if Header is not to be created in Select Mode> 
{SYSIN IS <mnemonic-name>) 
[SYSCONSOLE IS <mnemonic-name>} 
(SYSLST IS <mnemonic-name>j 
[SYSLOG IS <mnemonic-name>] 
(SYSCOM IS <mnemonic-name> ] 
{SYSTERMINAL 1S <mnemonic-name>] 
[SYSOUT IS <mnemonic-name>] 
Continuation Code (Next Screen is File Control] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode SN1 = Display Special Names 1 Screen 
ALP = Display Alphabet-Name Screen SCH = Display SYSCHAN Screen 
SSW = Display SYSSWCH Screen CLN = Display Class-Name Screen 


EDT Command:@ 


RARE REEMA RREERREERRERERERRREREEEKEKRKEERRERREEREREEREEEEERAEAREREEREREREEEEREE 





SN2 code Special-names screen 2 is displayed when requested by the SN2 
continuation code from the environment division screen, the 
special-names select screen, or other special-names screens. 


SPECIAL-NAMES SYSCHAN 
4-7 





0S/3 EDT/COBOL COBOL EDITOR(V8.@/1)-Ordered Creation Mode 
EERERERERERERE RE RRERR REA RERERERERRRRERER REE REREREERR ERR RR ER TARR EERE 
Special-Names Screen (3 of 6) Line nnnn.nnnn 
A B 
SPECIAL-NAMES. <Enter X if Header is not to be created in Select Mode> 
[SYSCHAN- 1s <mnemon ic -name>) 
[SYSCHAN- 1s <mnemonic -name> } 
(SYSCHAN- Is <mnemonic-name>] 
{SYSCHAN- Is <mnemonic-name>] 
{SYSCHAN- 1s <mnemonic -name>} 
[SYSCHAN- Is <mnemonic-name>j 
[SYSCHAN- 1s <mnemonic -name> 
[SYSCHAN- Is <mnemonic-name>) 
[SYSCHAN- 1s <mnemon ic -name>) 


Continuation Code Gi [Next Screen is File Control) 


NRM = Normal Continuation SEL = Enter Selective Creation Mode 

CMD = Enter EDT Command Mode ROP = Redisplay This Screen 

ALP = Display Alphabet-Name Screen CLN = Display Class-Name Screen 

SSW = Display SYSSWCH Screen SNn = Display Special-Names Screen n(n=1 or 2) 


EDT Command:@ 


RK RARER EERE RRR REE EMRRERRRRHUREEEEKRREHUEREREREEERKEKEEEEERRURREKEEREREEEK 


The SYSCHAN screen provides the information to create the 
SYSCHAN portion of the special-names. This screen is displayed 

SCH code when requested by the SCH continuation code from the 
environment division screen, the special-names select screen, or 
other special-names screens. 


RDP code To code more SYSCHAN source lines, enter the code RDP in the 
continuation code field to redisplay the screen. 
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SPECIAL-NAMES ALPHABET-NAME 
rar center a : 
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EREREREREREERREREREERERREERHUREREREEERERKEREEREEREREKRREEEEREEREREEEREREEKHEKEEERE 









Special-Names Screen (4 of 6) Line nann.nnnn 
A B 
SPECIAL-NAMES. <Enter X if Header is not to be created in Select Mode> 
<alphabet-name> (IS) 


[ <STANDARD-1, NATIVE, STANDARD-0>]. or 
tf <literal> [THRU <literal>)] 
{ <literal> [THRU <lLiteral>))}. 
( <literal> [ALSO <literal>} [ALSO <literal>] 
[ALSO <literal>] [ALSO <literal>] [ALSO <literal>] 
[ALSO <literal>] [ALSO <literal>] [ALSO <literal>] 
[ALSO <literal>) [ALSO <literal>]}. 
Continuation Code Gg) [Next Screen is File Control] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode RDP = Redisplay This Screen 
SSW = Display SYSSWCH Screen CLN = Display Class-Name Screen 
SCH = Display SYSCHAN Screen SNn = Display Special-Names Screen n(n=1 or 2) 


EDT Command: @ 
RREREEREEEEREEERREEEEEERERREERERERERERREREEEEEREEERREREREEEREERREREEEERERRERERKR 


The alphabet-name screen provides the information to create the 
alphabet-name portion of the special-names. This screen is 

ALP code displayed when requested by the ALP continuation code from the 
environment division screen, the special-names select screen, or 
other special-names screens. 


RDP code To code more alphabet-name source lines, enter the code RDP in 
the continuation code field to redisplay the screen. 
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RRRRRERERERENEEEERREREEERREREREREEREEEREREEEREREREREEEREEREREREEREREREREREEREEH 





Special-Names Screen (5 of 6) Line nnnn.nnnn 
A B 
SPECIAL-NAMES. <Enter X if Header is not to be created in Select Mode> 
SYSSWCH- <6,1,2,3,4,5,6,7> 


[1s <mnemonic -name> ) 
(ON (STATUS) IS <condition-name>] 
{OFF (STATUS) IS <condition-name>) 
SYSSWCH- <@,1,2,3,4,5,6,7> 
(1s <mnemonic-name>] 
{ON (STATUS) IS <condition-name>) 
[OFF (STATUS) IS <condition-name>] 
Continuation Code GmMe [Next Screen is File Control] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode RDP = Redisplay This Screen 
ALP = Display Alphabet-Name Screen  CLN = Display Class-Name Screen 
SCH = Display SYSCHAN Screen SN1 = Display Special-Names 1 Screen 
SN2 = Display Special-Names 2 Screen 


EDT Command:@ 
RARER ERE RERHERERREREEEREREREREERERERREREREKEREERREREREREREEREHEEEK 





The SYSSWCH screen provides the information to create the 
SYSSWCH portion of the special-names. This screen is displayed 

SSW code when requested by the SSW continuation code from the 
environment division screen, the special-names select screen, or 
other special-names screens. 


Required data When you code a SYSSWCH source line, you must include either 

the ON STATUS IS or the OFF STATUS IS field along with other 
When required data required data in the line. If neither field is coded, an error 
is missing message is displayed and you are given an opportunity to add 


the missing data. If you don’t add the missing data, the source 
line is created as is and no further action is taken by COBEDT. 


RDP code To code more SYSSWCH source lines, enter the code RDP in the 
continuation code field to redisplay the screen. 
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SPECIAL-NAMES CLASS-NAME 
4-10 es i 
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RRAARARARRERREEREEEREEREKRHEREREERERRERERERERRUREEEEREREREEEEKEEERREEERERREEEEEREE 








Special-Names Screen (6 of 6) Line nnnn.nnann 
A B 
SPECIAL-NAMES. <Enter X if Header is not to be created in Select Mode> 
CLASS-NAME (IS) <mnemonic-name> 
{VALUE (IS) <literal> [THRU <literal>) 
<literal> [THRU <literal>] 
<literal> [THRU <literal>} 
<literal> (THRU <literal>] 
<literal> [THRU <literal>} 
<literal> {THRU <lLiteral>] 
<literai> (THRU <literal>])} 
Continuation Code @@MMD [Next Screen is File Control] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode RDP = Redisplay This Screen 
ALP = Display Alphabet-Name Screen SCH = Display SYSCHAN Screen 
SSW = Display SYSSWCH Screen SN1 = Display Special-Names 1 Screen 
SN2 = Display Special-Names 2 Screen 


EDT Command: @ 


RRERARRRRRRRRERERERERERERRRERERERRERURRERRREEEEREEREMHUEEREREREREREERERERREREEEEK 


The class-name screen provides the information to create the 
class-name portion of the special-names. This screen is displayed 

CLN code when requested by the CLN continuation code from the 
environment division screen, the special-names select screen, or 
other special-names screens. 


RDP code To code more class-names or values, enter the code RDP in the 
continuation code field to redisplay the screen. 


INPUT-OUTPUT SECTION FILE CONTROL 
4-11 . — 


OS/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


HH RE RIKER AREER EERE EERE REE EEE REE EUREKA RRERETERRERERERMKEEAEEEE 





File Control Line nnann.nnnn 
A 8 
INPUT-OUTPUT SECTION. <Enter X if Section is not to be created> 
FILE CONTROL. 


Continuation Code (MH) [Next Screen is Data Division Coding Form] 


NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode REL = Relative File Select 

COR = Cardreader File Select INX = Indexed File Select 

CDP = Cardpunch File Select TAP = Tape File Select 

PRT = Printer File Select DIS = Sequential Disk File Select 
10C = Display I-0 Control Screen 


EDT Command:@ 
HERE RAKK EK K EERE EEERERRERERE KAKA 


The file control screen provides the information to initialize the 
file-control portion of the input-output section and to display 
either a desired file select screen or the I-O control screen. 
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code on the environment division screen, the special-names 
select screen, or any of the special-names screens. 

Keeping the code NRM in the continuation code field indicates 
that you have finished coding the environment division and the 
data division coding form screen (screen 4-36) is to be displayed 
next for coding the working-storage section of the data division. 
pm FILE SELECT TYPE 
A — 
0S/3 EDT/COBOL COBOL EDITOR(V8.¢@/1)-Ordered Creation Mode 
HAKKAR EKEEKEIHEERIKIEIKKEREERHUAERERKR ERK EEK KKK REE REE EERE EREEEEEEEEREREEEEKEREE 
File Select Type Screen 
CDR = Cardreader File Select REL = Relative File Select 
CDP = Cardpunch File Select INX = Indexed File Select 
PRT = Printer File Select TAP = Tape File Select 
10C = Display I-0 Control Screen DIS = Sequential Disk File Select 
Continuation Code [Next Screen is Data Division-FD] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode fff = Next File Select Code 

EDT Command: @ 

RRR KEEEEREEREEKREREEREEEEK EERE EEK EEEEEREEEEEEREREEEEEREEREREREEREREEEE 
The file select type screen lists the available file select and the 
l-O control screens and their display codes. 

FST code This screen is displayed when requested by the FST continuation 


Seven select screens 


code from any of the file select screens or from the indexed 
select alternate record keys screen. (See screens 4-13 through 
4-20.) 


This screen is also displayed automatically each time you reenter 
the ordered creation mode after temporarily entering either the 
EDT command mode or the selective creation mode from a file 
select screen or the alternate record keys screen with source 
data entered and a code CMD or SEL in its continuation code 
field. 


There are seven file select screens for seven COBOL file types, 
namely cardreader, cardpunch, printer, tape, sequential disk, 
relative, and indexed. Each screen provides the information to 
create the file select portion of the input-output section as 
indicated by its name. 
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Since the select clause is optional in a COBOL program, COBEDT 
doesn't create any source lines if no user data is entered on a 
file select screen. If you do code a select clause, COBEDT adds 
the file name specified to a temporary internal table to be used in 
the creation of the FD source lines. If you want to display 
another file select screen or the I-O control screen, enter the 
proper file select code on the current select screen. 





If you temporarily enter either the EDT command mode or the 
selective creation mode from a file select screen without filling in 
any source data on the screen, upon returning to the ordered 
creation mode, the same screen is redisplayed. On the other 
hand, if you have filled in the source data, upon return, the file 
select type screen is displayed, allowing you to request another 
file select screen or the I-O control screen. 


SCREEN CARDREADER SELECT 
4-13 aon oS 






0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 
MAKKAH KEERHREEEEEREEUEEEKREEEEEEERKEEEREEKEEEEERKEKEK 
Cardreader Select Line nnnn.nnnn 
AB 
SELECT <OPTIONAL, spaces> 
<file-name> 
ASSIGN (TO) CARDREADER- <l fdname> -F 
[RESERVE <1,2> AREA(S)] 
[ORGANIZATION (IS) SEQUENTIAL] 
[ACCESS (MODE IS) SEQUENTIAL) 
[C(FILE) STATUS (IS) <data-name>). 
Continuation Code GM [Next Screen is Data Division-FD] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode FST = Display File Select Type Codes 
fff = Next File Select Code 


EDT Command: @ 
REREREEEEEEREKEKEREEEEEKEEEKKEEEEEEKEEEEEKEEEEEEERAEAEEREEEEREEKEEEEEUEEEHEEAKEEEEHEEEK 


CDR code The cardreader select screen is displayed when requested by the 
CDR select code from the file control screen, the file select type 
screen, other file select screens, or the alternate record keys 
screen. 
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SCREEN 
4-14 


CARDPUNCH SELECT 
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Cardpunch Select Line annn.nnnn 
A B 
SELECT <OPTIONAL, spaces> 
<file-name> 
ASSIGN (TO) CARDPUNCH- <lfdname>- <F,U,V> 
(RESERVE <1,2> AREA(S) ] 
[ORGANIZATION (IS) SEQUENTIAL] 
[ACCESS (MODE IS) SEQUENTIAL} 
LCFILE) STATUS (IS) <data-name>]. 
Continuation Code RM) [Next Screen is Data Division-FD] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode FST = Display File Select Type Codes 
fff = Next File Select Code 


EDT Command:@ 
MRR REREEEEEEEEEREEEREEEEREEEREREEREEEEEEEEEEEEEKEEEREEREEEKEEEEEEREEKKEKKKKKKK 





CDP code The cardpunch select screen is displayed when requested by the 
CDP select code from the file control screen, the file select type 
screen, other file select screens, or the alternate record keys 





screen. 
SCREEN PRINTER SELECT 
4-15 
0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 
MIKI KHIR ITI IRE IRI HIKE THK EEE IIIT IEEE REEREREEEREEEEKHE 
Printer Select Line nnnn.nnonn 
A B 
SELECT <OPTIONAL, spaces> 
<file-name> 
ASSIGN (TO) PRINTER- <lfdname>- <FC,UC,VC> 
(RESERVE <1,2> AREACS)) 
[ORGANIZATION (IS) SEQUENTIAL] 
[ACCESS (MODE IS) SEQUENTIAL] 
(CFILE) STATUS (IS) <data-name>}. 
Continuation Code Gg [Next Screen is Data Division-FD] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode FST = Display File Select Type Codes 
fff = Next File Select Code 


EDT Command:@ 
WHR REE EERE REE REE EERE REE EEEREKEREREEEEEREEEREEEKEEEEEREEEEEEKERERER 


PRT code The printer select screen is displayed when requested by the PRT 
select code from the file control screen, the file select type 


screen, other file select screens, or the alternate record keys 
screen. 
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SCREEN TAPE SELECT 
es) 
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REE KREUK EKER EEEEEREEKEEEEREEREEEEEEEREEHERKEEERUEREEEEEEEEKEEEREREAER 





Tape Select Line nnnn.nnnn 
A 8 
SELECT <OPTIONAL, spaces> 
<file-name> 
ASSIGN (TO) TAPE- <lfdname>- <F,U,V,FC,UC,VC> 
[RESERVE <1,2> AREACS)] 
[ORGANIZATION (IS) SEQUENTIAL] 
[ACCESS (MODE IS) SEQUENTIAL] 
(CFILE) STATUS (IS) <data-name>j. 
Continuation Code (RM) [Next Screen is Data Division-FD] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode FST = Display File Select Type Codes 
fff = Next File Select Code 


EDT Command:@ 
RHR REE ERE ERK EERE EKER ERE EEE HEE KRERREREREEREREKRRE MEEKER REREREEKRERKEEKEAKKEE 


TAP code The tape select screen is displayed when requested by the TAP 
select code from the file control screen, the file select type 
screen, other file select screens, or the alternate record keys 





screen. 
SEQUENTIAL DISK SELECT 
SCREEN 
OS/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 
RHEE KR E HR EKREERERIEKIKE EE KER EE HEREE REEMA RERUREEEEE 
Sequential Disk Select Line nnann.nnnn 
A 1} 
SELECT <OPTIONAL, spaces> 
<file-name> 
ASSIGN (TO) DISC- <lfdname>- <F,V,FC,VC> 
[RESERVE <1,2> AREACS)] 
{ORGANIZATION (IS) SEQUENTIAL} 
{ACCESS (MODE IS) SEQUENTIAL] 
{(FILE) STATUS (IS) <data-name>]. 
Continuation Code ¢MRMD [Next Screen is Data Division-FD} 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode FST = Display File Select Type Codes 
fff = Next File Select Code 


EDT Command:@ 
PARK ERE RHE EERE ERK KERR EERE EEREEEEEEEEREKREEKERREREEKEEEEE 


DIS code The sequential disk select screen is displayed when requested by 
the DIS select code from the file control screen, the file select 
type screen, other file select screens, or the alternate record 
keys screen. 
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& SCREEN RELATIVE SELECT 
4-18 ow — 
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Relative Select Line nnnn.nannn 
A 8 
SELECT 
<fite-name> 
ASSIGN (TO) DISC- <lfdname>- <F,V> 
[RESERVE <1,2> AREACS)] 
ORGANIZATION (IS) RELATIVE 
[ACCESS (MODE IS) <SEQUENTIAL ,RANDOM, DYNAMIC>] 
[RELATIVE (KEY IS) <data-name>] 
[CFILE) STATUS (IS) <data-name>]. 
Continuation Code (QM [Next Screen is Data Division-FD] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode FST = Display File Select Type Codes 
fff = Next File Select Code 


EDT Command:@ 


HHI KKK HK IIHR ERIE IKK KEI I RR E RARER EEE EEE ERE UEREREREEEREEEEEREEKEERE 





REL code The relative select screen is displayed when requested by the 
REL select code from the file control screen, the file select type 
screen, other file select screens, or the alternate record keys 
screen. 


Required data If you indicate ACCESS MODE IS RANDOM or DYNAMIC, the 


@ RELATIVE KEY IS field is then required. If this field is not coded, 
an error message is displayed. 


SCREEN INDEXED SELECT 
, See aoe . 
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RHEKEKREEEEEREKREEEEERERIEHKEEERUEREKEEIRIEKEREKERERUEEEEKEEKEER EERE EERE REREREEE 





Indexed Select Line nann.nnnn 
A B 
SELECT 
<file-name> 
ASSIGN (TO) DISC- <tfdname>- <F,V> 
[RESERVE <1,2> AREACS)] 
ORGANIZATION (IS) INDEXED 
[ACCESS (MODE IS) <SEQUENTIAL , RANDOM, DYNAMIC>] 
RECORD (KEY IS) <data-name> 
| (CFILE) STATUS (IS) <data-name>}. 
| Continuation Code GH [Next Screen is Data Division-FD] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode FST = Display File Select Type Codes 
fff = Next File Select Code ALK = Alternate Record Keys Required 


EDT Command:@ 


WH KK KK HII IEEE ERE RIK EERE KKH RUEREKEERREREREEER EERE EEEREREEKE 





INX code The indexed select screen is displayed when requested by the 
INX select code from the file control screen, the file select type 
screen, other file select screens, or the alternate record keys 


& screen. 


ALK code If you want to specify alternate record keys for the indexed file, 
enter code ALK in the continuation code field to display the 
alternate record keys screen for coding. 
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INDEXED SELECT ALTERNATE RECORD KEYS 
4-20 & _ ae _ 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


HR REE EEK KEKE ERE KEENE KEE KEKE REE EEE AMEE EEREEEEEKEKEREK REE KKK 











Indexed Select Alternate Record Keys Line annn.nannn 
A B 
[ALTERNATE RECORD (KEY IS) <data-name> 
(WITH) <DUPLICATES, spaces>] 
[ALTERNATE RECORD (KEY IS) <data-name> 
(WITH) <DUPLICATES,spaces>) 
[ALTERNATE RECORD (KEY IS) <data-name> 
(WITH) <DUPLICATES, spaces>] 
[ALTERNATE RECORD (KEY IS) <data-name> 
(WITH) <DUPLICATES, spaces>] 
Continuation Code (i [Next Screen is Data Division-FD] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode FST = Display File Select Type Codes 
RDP = Display This Screen Again fff = Next File Select Code 


EDT Command:@ 


HIKER IRIE IRE REE IRIE IKKE KEI KHIR IKKE KKK EERE KEKE KEKE 





The alternate record keys screen provides the information to 
create the alternate key source lines for an indexed select clause. 

ALK code This screen is displayed when requested by code ALK from the 
indexed select screen. 


Keys are optional. The alternate record keys are optional. If no user data is entered 
on the screen, no source lines are created. If you want to code 
Coding more keys more alternate keys, enter RDP in the continuation code field to 


redisplay the screen. If you want to display another file select 
screen or the I-O control screen, enter the proper file select code 
in the continuation code field. 


SCREEN 1-O CONTROL 
4-21 ee 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 
FR IRI ITI IRR III III IIIA IIIA TAIT AIA IS IAI AIA AISA IAI IIA IAI IIA IATA TIAA ANI 





1-0 Control Line nnnn.nnnn 
AB 
1-0-CONTROL. <Enter X if Line is not to be created in Select Mode> 
[RERUN ON [ <DISC,DISK, TAPE>- } <lfdname>[- <1,2>) 
EVERY <integer> RECORDS (OF) 


<filename>] 
{ <Enter X if filenames to be created without SAME AREA line> 
SAME <RECORD,SORT,SORT-MERGE> (AREA FOR) 
<filename> 
<filename>} 
[MULTIPLE FILE (TAPE CONTAINS) <Enter X if Line is to be created> 
<filename> 


POSITION <integer>] 
Continuation Code GM [Next Screen is I-0 Control Applys] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 


CMD = Enter EDT Command Mode RDP = Display This Screen Again 
EDT Command:@ 


RRM KEK RE RE EKER RHEE EEE KE EEE EERE ERIE KICKER EERE EREREREREREREERE KKK 





The I-O control screen provides the information to create part of 
the I-O control paragraph. 
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This screen is displayed when requested by the IOC continuation 
code from the file control screen, the file select type screen, the 
file select screens, or the alternate record keys screen. Note that 
you request the display of the !-O control screen only after you 
finish coding all the desired select clauses. 


If no user data is entered on this screen, no source lines are 
created. If you want to include more files in the SAME AREA or 
MULTIPLE FILE clauses, enter the code RDP in the continuation 
code field to redisplay this screen. 


SCREEN |-O CONTROL APPLYS 
4-22 Pe ee 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 
HERE IRHEEKEEKREKKKRIEIEEREREREEERERERKERUEEEEEEREREREEEEEEEEEEEEEEEKEEREEKKKKK 





I-0 Control Applys Line nnnn.nnnn 
AB 


{APPLY BLOCK-COUNT ON <Enter X if Line is to be created> 
<filename, TAPES>] 
[ <filename>]] 
[APPLY VERIFY ON <Enter X if Line is to be created> 
<f ilename>] 
[ <filename>)] 
(APPLY INDEX-AREA OF <Enter X if Line is to be created> 
<integer> CHARACTERS ON 
<filename> 
[ <filename>]]. 
Continuation Code G#BMD [Next Screen is Data Division - FD) 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode RDP = Display This Screen Again 
EDT Command:@ 


HIKARI EEK ERR ER ERE REESE IIE EEUU EEKREREEREEEEERERAKRK EE 


The apply screen provides the information to create APPLYs in 
the I-O control paragraph. This screen is displayed when COBEDT 
completes processing the I-O control screen. 


If no user data is entered, no source lines are created. If you 
want to include more file names in any of the APPLY clauses, 
enter code RDP in the continuation code field to redisplay this 
screen. If multiple file names are used, each APPLY clause must 
be completed with all of its file names entered before the next 
APPLY clause can be coded. 
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SDD code 


LIN code 


Period on the FD screen 


First FD entry 





Data Division Screens 


ee (DATA DIVISION - FD 
4-23 ees ee 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 
TET eT PTI lili t ili ii titi iri li rtitiirirtiiiciirioriititritirti tier i titertr ere tt er rd 







Data Division - File Section (FD) Line nnnn.nnnn 


FD <file-name> 
[BLOCK (CONTAINS) <integer> [TO <integer>) 
<RECORDS, CHARACTERS> } 

(RECORD (CONTAINS) <integer> [TO <integer>] (CHARACTERS) ] 

LABEL RECORD(S) (ARE) <STANDARD , OMITTED, data-name> 

{VALUE OF [FILE-ID (IS) <data-name>} 
[PASSWORD (IS) <data-name>] 

(CODE-SET (IS) <alphabet name>]. 


Continuation code 
NRM 





{Next Screen is FD Data Record Form} 
Normal Continuation SEL = Enter Selective Creation Mode 
CMD Enter EDT Command Mode LIN = Linage Screen Required 
SOD = Current File is a Sort File-Display SD Screen 
EDT Command:@ 
KEKE ERE EREREKERHRE EERE HERE REE KEE ERK EEEKEEREKEEREREREEKEEKEEKREEKKKKE 


After the source lines for the desired SELECT clauses and the I-O 
CONTROL paragraph are created, COBEDT checks the temporary 
internal file name table created during the processing of the 
SELECT screens and then displays the FD screen for each of the 
file names listed with the file name placed in its FD file-name 
field. 


If the file is a sort file, you must not enter source data here but 
enter the SDD continuation code to request the SD screen 
(screen 4-26) for coding the SD source lines. If you want to 
code the LINAGE clause with the current FD, enter the LIN 
continuation code to display the linage screen (screen 4-24) for 
coding. In this case, the period displayed on the current FD 
screen is not generated. 


In the ordered creation mode processing, if the current FD is the 
first entry in the file section, COBEDT first creates the DATA 
DIVISION and FILE SECTION source lines and then the source 
lines from the current FD screen. 


If you temporarily enter either the EDT command mode or the 
selective creation mode from an FD screen without filling in any 
source data on the screen, upon returning to the ordered creation 
mode, the same screen is redisplayed. On the other hand, if you 
have filled in the source data, upon return, the FD data record 
form screen (screen 4-25) is displayed. 
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NOTE: 


The internal table for the file names specified in SELECT clauses 
is created only in ordered creation mode processing and lasts for 
the duration of the current COBEDT session. If you request an FD 
screen in the selective creation mode, you must ‘lace the file 
name specified in a SELECT clause in the FD file-name field. 


SCREEN LINAGE CLAUSE 
“— 4-24 —— 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


WHERE EEEEEKEREREKEEEREEEE EEE EKER REE KEE KEKE REECE EREEKEREEREEE 





File Section - Linage Line nnnn.nnnn 
A B : 

{LINAGE (IS) <data-name, integer> LINES 
[C(WITH) FOOTING (AT) <data-name, integer>] 
([(LINES AT) TOP <data-name, integer>] 
[CLINES AT) BOTTOM <data-name, integer>]]. 


Continuation Code Gm [Next Screen is FD Data Record Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode 
EDT Command:@ 
HHRKEKKEEE REE ERE EERE EHR 


The linage clause screen provides the information to create the 
linage clause source lines. This screen is displayed when 
requested by the LIN continuation code from the FD screen. 


All user data on the screen is optional. If no data is entered, no 
source lines are created. 
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FD DATA RECORD FORM 
4-25 —— 


OS/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 
FRITTERS IIT II 









FD Data Record Form Line nnnn.nnnn 
cA OB 41 
1 <data-record-name> 


Continuation Code (MRM [Next Screen varies] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode RDP = Display This Screen Again 
EDT Command:@ 
PEP PPPS PSST PTT TCT TT PTT TP PT TP Se Ter ee I TIT TI TTT TT CCT TTI TTT TTTTTTTre 





The FD data record form screen provides you space to create a 
data record associated with an FD, SD, or CD. This screen is 
displayed after an FD, SD, or CD is coded and processed and 
can be redisplayed as many times as necessary to complete the 
record definition. 


Data record name The data record name must be coded the first time the screen is 
displayed. On subsequent displays, if the data record name field 
is left blank, the data on the screen is considered a continuation 
of the current 01 level. 





When the normal continuation is indicated, the next screen to be 
displayed is either the FD screen (screen 4-23) when there are 
more files to be defined or the data division coding form screen 
(screen 4-36). 
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© ppm DATA DIVISION - SD 
4-26 ss — — 
0S/3 EDT/COBOL COBOL EDITOR(V8.@/1)-Ordered Creation Mode 
HEME KKK ERK KEE EEE EERE KE REEEE EERE REEEREREEEEEREREEEEEREREEEKEKKEEEEEKRE 
Data Division - File Section (SD) Line nnnn.nnnn 
AB 
sb <file-name> 
[RECORD (CONTAINS) <integer> 
{To © <integer>] (CHARACTERS) ]. 
Continuation Code RRM [Next Screen is FD Data Record Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode fFDD = Display FD Screen 
EDT Command:@ 
HK KKK KKK EEK EKEKEKEEEKEE KEE EERE EEEEEEEEEEREREEEREREREEKEEREEEKEEEK 
The SD screen provides the information to create the SD entry of 
a sort/merge file. This screen is displayed when requested by the 
SDD code SDD continuation code from the FD screen. In ordered creation 


& FDD code 


mode processing, the name of the file is automatically displayed 
in the SD file-name field by COBEDT. 


If the file is not a sort file and you have requested the SD screen 
by mistake, you may return to the FD screen by specifying the 
FDD continuation code on the SD screen. 


If you temporarily enter either the EDT command mode or the 
selective creation mode from an SD screen without filling in any 
source data on the screen, upon returning to the ordered creation 
mode, the same screen is redisplayed. On the other hand, if you 
have filled in the source data, upon return, the FD data record 
form screen is displayed. 
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COMMUNICATION SECTION INPUT CD 1 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


HERR EEKRE EERE EERE REECE EEEEEUEEEERERERERRKRREEREREEEKERERERREKEEKREEERE 














Communication Section Input CD (1 of 2) Line nannn.nnnn 
A 8 
cD <cd-name> 
(FOR) [ <INITIAL,spaces>] (INPUT) 
TCSYMBOLIC) QUEUE (IS) <data-name>] 
CCSYMBOLIC) SUB-QUEUE-1 (IS) <data-name>] 
[CSYMBOLIC) SUB-QUEUE-2 (IS) <data-name>] 
[CSYMBOLIC) SUB-QUEUE-3 (1S) <data-name>] 
[MESSAGE DATE (IS) <data-name>] 
Continuation Code G@WM) [Next Screen is FD Data Record Form} 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode NCO = Display Second Part of CD 
ICD = Display Input CD Screen OCD = Display Output CO Screen 


EDT Command:@ 
REIKI ETRE EERE KERRIER EKER KEE RERREAUEKEEEREEEREERREREREERKHEERKEREKE 


The input CD 1 screen provides the information to create the 

ICD code initial part of an input CD. This screen is displayed when 
requested by the ICD continuation code from the data division 
coding form screen (screen 4-36), the input CD 2 screen, or the 
output CD screen. 


The user data on this screen is optional. If no data is entered, 
CD name missing COBEDT doesn’t create any source lines. If data is entered but 
the CD name is not included, COBEDT displays an error message. 


First CD entry If the current CD is the first entry in the communication section, 
COBEDT first creates the COMMUNICATION SECTION source line 
and then the source lines from the current screen. 


COMMUNICATION SECTION INPUT CD 2 
4-28 — ea - 


0S/3 EDT/COBOL COBOL EDITOR(V8.@/1)-Ordered Creation Mode 


RRR REE REE EERE ERHEMEEEERAKERHREREEREEREREREREEEREEEEERREKKEEKIAEEE 





Communication Section Input CD (2 of 2) Line nnnn.nnnn 
A B 
(MESSAGE TIME (IS) <data-name>] 
[CSYMBOLIC) SOURCE (IS) <data-name>) 
(TEXT LENGTH (IS) <data-name>] 
{END KEY (1S) <data-name>] 
(STATUS KEY (IS) <data-name>] 
( (MESSAGE) COUNT (IS) <data-name>] 
Continuation Code GBM [Next Screen is FD Data Record Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode ICD = Display Input CD Screen 
OCD = Display Output CD Screen 


EDT Command:@ 
HHH KHIR EEE REE KK IRE EATER RE KRRKHRE RK EKKRRREERERRERERUEUREREEEEREHEEEEE 


The input CD 2 screen provides the information to create the 

NCD code remainder of the input CD. This screen is displayed when 
requested by the NCD continuation code from the input CD 1 
screen. 
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CD name missing 


OCD code 


CD name missing 





The user data on this screen is optional. If no data is entered, 
COBEDT doesn’t create any source lines. If no data was entered 
on the input CD 1 screen but data is entered on this second one, 
COBEDT responds with an error message and redisplays the first 
input CD screen for you to add the CD name. If you don't add 
the name, the input CD source lines are created without the 
name. 





COMMUNICATION SECTION OUTPUT CD 
SCREEN 
4-29 ee scapes 
0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 
He Be Ke Fe HHH II II IM TT RIK IIA ITI HK INI ET IEIKRRR RA R IEEE REIEE ERE EEERUREREREREKEEK 
Communication Section Output CD Line nnnn.nnnn 
A 8 
cD : <cd-name> (FOR) OUTPUT 
[DESTINATION COUNT (IS) <data-name>] 
[TEXT LENGTH (IS) <data-name>] 
{STATUS KEY (IS) <data-name>] 
[DESTINATION TABLE OCCURS <integer> TIMES 
[INDEXED BY <index -name> 
<index-name>]] 
(ERROR KEY (IS) <data-name>] 
{SYMBOLIC DESTINATION (IS) <data-name>]. 
Continuation Code (ii) [Next Screen is FD Data Record Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode OCD = Display Output CD Screen 


ICO = Display Input CD Screen 
EDT Command:@ 
HHH HHH I KK HITTITE UIT IRE KIER ERIK ERE RHEE EEREREREEKEEHEEEENER 


The output CD screen is displayed when requested by the OCD 
continuation code from the input CD screens or the data division 
coding form screen (screen 4-36). 


The user data on this screen is optional. If no data is entered, 
COBEDT doesn’t create any source lines. If data is entered 
without the CD name, an error message is displayed. 


if you want more than two index-names, enter the code OCD in 
the continuation code field to redisplay this screen. 
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Sem DATA ITEM DESCRIPTION 
20 —— abide 


08/3 EDT/COBOL COBOL EDITOR(V8.6/1)-Ordered Creation Mode 


FEI III ITO III II II IIIS OI IOI OOS OSS SOA TOSI IIIS RR 












Data Item Description Line nnann.nnnn 
<level -number> <data-name, FILLER> 
(REDEFINES <data-name>] 
[PIC CIS) <character string>] 
{USAGE (IS) <COMP, COMP-n, DISPLAY, INDEX>] 
[ISIGN (IS)] <LEADING, TRAILING> 
[SEPARATE (CHARACTER) ]] <Enter X for SEPARATE CHARACTER> 
(SYNCHRONIZED <LEFT,RIGHT>) 


[JUSTIFIED RIGHT] <Enter X if line is to be created> 
[BLANK (WHEN) ZERO] <Enter X if line is to be created> 


{VALUE (1S) <literal>] 
Continuation Code Gti [Next Screen is Data Division Coding Form} 
NRM = Normal Continuation RDP = Display This Screen Again 
CMD = Enter EDT Command Mode SEL = Enter Selective Creation Mode 
OCC = Display OCCURS Screen 


EDT Command:@ 
IRRITATION I a ok 





The data item description screen provides the information to 
create a data item in the data division. This screen is displayed 
DAT code when requested by the DAT continuation code from the OCCURS 
screen (screen 4-31), the KEY IS screen (screen 4-32), the 
INDEXED BY screen (screen 4-33), or the data division coding 
form screen (screen 4-36). @ 





All the data on this screen is optional. If no data is entered, no 
source lines are created. 


SCREEN OCCURS CLAUSE 
" 4-31 re : 


OS/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 
FRI R ISR IRR TR ITT IAI IITA TAIT IITA AIA ATID ARIAT IR IIIS AAA INA AAA AIS AAAI I 










Data Item OCCURS Clause Line nnnn.nonn 
[Occurs <integer> [TO <integer>] (TIMES) 
[DEPENDING (ON) <data-name>]} 


Continuation Code GYRMD [Next Screen is Data Division Coding Form] 


NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode KEY = Display KEY IS Screen 
DAT = Display Data Description IDX = Display INDEXED BY Screen 


EDT Command:@ 
SEI IIIS III RI IIIT IOI IOI ik 


The OCCURS screen provides the information to create an 
OCCURS clause. This screen is displayed when requested by the 
OCC code OCC continuation code from the data item description screen. 
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All the data on this screen is optional. If no data is entered, no 
source lines are created. 


KEY IS CLAUSE 
SCREEN 
4-32 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 
IKI K HII TKI IRI HIKER KERIKERI MERE EERE EERE EERE EEEKKREEEREREREEEEEEE 
Data Item KEY IS Clause Line nnon.nnnn 
[ <ASCENDING,DESCENDING> (KEY IS) 
<data-name> 
<data-name> 
<data-name> 
<data-name> 
<data-name> 
<data-name> 
<data-name>] 
Continuation Code Gé#H) [Next Screen is Data Division Coding Form] 





NRM = Normal Continuation SEL = Enter Setective Creation Mode 
CMD = Enter EDT Command Mode RDP = Display This Screen Again 
IDX = Display INDEXED BY Screen DAT = Display Data Description 


EDT Command: @ 
KKK HHI IKI HK KEKE KEKE HEE KK EKER EKER EEE EEEEERERREKREEKERERERERKEEEEREREE 





The KEY IS screen provides the information to create a KEY !S 
KEY code clause. This screen is displayed when requested by the KEY 
continuation code from the OCCURS screen. 


All data on this screen is optional. If no data is entered, no 
source lines are created. 


INDEXED BY CLAUSE 
SCREEN ne 
4-33 


08/3 EDT/COBOL COBOL EDITOR(V8.6/1)-Ordered Creation Mode 
HHH KH KI IIR KKK IKI KKK KHIR IKE KIRKE KEKE IEEE REE KEEEREEEEEEEEEEKEEK EEE 





Data Item INDEXED BY Clause Line nnnn.nnnn 
(INDEXED (BY) <Enter X if Line is to be created> 
[ <index -name>] 


( <index -name>] 
[ <index-name>] 
[ <index -name>] 
[ <index-name>] 
{ <index-name>] 
[ <index-name>] 


[ <index-name>]] 
Continuation Code G¥RM) (Next Screen is Data Division Coding Form) 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode ROP = Display This Screen Again 
DAT = Display Data Description 


EDT Command: @ 


HHH HHI IR IIH IK HITE HIKE KEKE KEK IK IKK IKE KIKI KKK KERR EKER ERIK REEREEKEKEKE 





The INDEXED BY screen provides the information to create an 
INDEXED BY clause. This screen is displayed when requested by 

IDX code the IDX continuation code from the OCCURS screen or the KEY 
IS screen. 


All data on this screen is optional. If no data is entered, no 
source lines are created. 
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Neaate ENAMES CLAUSE 
4-34 j j 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)~Ordered Creation Mode 


HRREKRER KEKE ERE REE REE ERE EERE RE REE ARERR REREEREEEERERERHEEREE RT EEEEKEHEREEREREEN 













RENAMES Data Item Line nnnn.nnnn 
A B 
66 <data-name> 
RENAMES <data-name> 
[THRU <data-name>] 


Continuation Code GM [Next Screen is Data Division Coding Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode ROP = Display This Screen Again 


EDT Command:@ 
WHERE AEAREARAEEEEEREEEREEEEEREEERREEREREEE ERE ERRRERERERKEEEEEEREEEEKEEREERKKKEK 


The RENAMES screen provides the information to create a 

REN code RENAMES clause. This screen is displayed when requested by 
the REN continuation code from the data division coding form 
screen (screen 4—36). 


All user data on this screen is optional. If no data is entered, no 
source lines are created. If data is entered, COBEDT creates the 





The clause starts in source line with level number 66 starting in column 10 to make 
column 10 the RENAMES clause stand out from other level numbers. 
oltaan CONDITION NAME DATA ITEM 
-_ 4 35 ; ; 
OS/3 EDT/COBOL COBOL EDITOR(V8.6/1)-Ordered Creation Mode 
RREARRKREEEREREERERREREERERRREREREEREREREERERRERRREERARERERREEEHHREREREEKEEHERENEKEE 
Condition Name Data Item Line nnann.nnnn 
A B 
88 <condition-name> 
VALUE IS <literal> 
(THRU <literal>] 
{ <literal> 
(THRU <literal>]} 
{ <literal> 
(THRU <literal>)]} 
{ <literal> 
[THRU <literal>}] 
Continuation Code GMM [Next Screen is Data Division Coding Form) 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode ROP = Display This Screen Again 


EDT Command:@ 
REE REE EEEEKEEEREEEREERKEEKEMERREERRERETRARUEEREEEEREREREEEEREEREEEEKEEEEEK 





CND code The condition name screen is displayed when requested by the 
CND continuation code from the data division coding form screen 
(screen 4-36). 
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Indentation of lines 


Level numbers 01 and 77 
Level number 66 


Other level numbers 
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All user data on this screen is optional. If no data is entered, no 
source lines are created. If data is entered, the source lines with 
level number 88 are created and indented two columns (character 
positions) from the beginning of the associated data description 
source line. For example: 


@2 PAYROLL-PERIOD PIC 9. 





88 WEEKLY VALUE @. 
88 MONTHLY VALUE 1. 
DAT I IN M 
SCREEN A DIVISION CODING FOR 
4-36 

0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 
HHI EEE ERE EKER IAEEEEEKREEREEREEEREKEKEREEREREEREEKEKEREEEKKEEREKEEEEKEKKKE 
Data Division Coding Form Line nnnn.nnnn 


Level# Data Description 


Continuation Code GMM) [Next Screen is Data Division Coding Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD Enter EDT Command Mode Ppoc Display Procedure Division Coding Form 
ICD = Display Input CD Screen DAT = Display Data Item Description Screen 
OCD = Display Output CD Screen CND = Display Condition Name Screen 
REN Display RENAMES Screen 


EDT Command: @ 
KKK KEKE EKER EERE REE REE EERE EKER CEEEKEEEKEREEEEEEKEEEREREEEEE 


The data division coding form screen lets you create the source 
lines for the working-storage section by entering the level 
numbers and their associated data descriptions. This screen is 
displayed if you selected the NRM continuation code on any one 
of the following screens: file-control, FD data record form (if all 
the FD/SD files have been defined), data item description, 
OCCURS, KEY IS, INDEXED BY, RENAMES, or condition name. 
This screen is redisplayed until either COBEDT is terminated or a 
procedure division coding form screen is requested. 


When the screen is transmitted, COBEDT checks the level 
number of each source line. If it is O01 or 77, the source line is 
started at column 8. If it is 66, the source line is started at 
column 10. COBEDT indents source lines with level numbers 
other than 01, 77, or 66. Source lines at first level below level 
01 are created with the level numbers starting at column 12. 
Subsequent source lines with new and greater level numbers are 
indented an additional two columns. 
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Coding the linkage 
section 


Coding the communication 
section 


Calling a procedure division 
coding form screen 


NOTE: 


When you request the data division coding form screen in the 
selective creation mode, all source lines with level numbers other 
than 01, 66, or 77 begin in column 12. 


In the ordered creation mode, after the data division coding form 
screen is first displayed and transmitted, COBEDT creates the 
DATA DIVISION source line (if it has not already been created), 
the WORKING-STORAGE SECTION source line, and then the 
source lines from this first screen. 


From a data division coding form screen, you may request the 
data item description screen, the condition name screen, or the 
RENAMES screen to assist you in coding the working-storage 
section. 


To code the linkage section, you must enter the selective 
creation mode and key in your data on the standard COBOL 
coding form screen (screen 5-1). When you return to the ordered 
creation mode, another data division coding form screen is 
displayed. 


To code the communication section, you must use the 
appropriate continuation code to display the desired CD screen 
for coding. After the communication section has been created, a 
data division coding form screen is redisplayed. 


To display a procedure division coding form screen for coding 
the procedure division, enter code PDC in the continuation code 
field of the current data division coding form screen. 
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Procedure Division Screen 





PROCEDURE DIVISION CODING FORM 
SCREEN Oo 
4-37 eee sisi 3 
0S/3 EOT/COBOL COBOL EDITOR(V8.@/1)-Ordered Creation Mode 
WHICH HH HII III IH RIKI SITS HTK REIMER T TREE ATID REMAVR EERIE 
Procedure Divsion Coding Form Line nnnn.nnnn 
cA OB 


Continuation Code im [Next Screen is Procedure Division Coding Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode vvvvvvvv = Display vvvvvvvv Verb Skeleton 
EDT Command: @ 
RARE EERE EEE EEE REEEERERREREEEERREREEEREEEEREEEEKEREEEEERERREEEEKKKEK 


This screen is initially displayed when requested by the PDC 
continuation code from the data division coding form screen. The 
first three lines of the form let you create margin A source lines. 
These source lines include the PROCEDURE DIVISION header, 
section headers, paragraph names, and the DECLARATIVES and 
END DECLARATIVES statements. You may use the entire form to 
create margin B source lines, which are the procedure division 
verb statements. 


The PROCEDURE DIVISION source line and a paragraph name 
source line must be coded the first time the procedure division 
coding form screen is displayed. 


NOTE: 


Appendix A presents all the verb skeleton screens and verb 
skeleton display codes. 
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4.5. SUMMARY OF ORDERED CREATION MODE SCREENS AND THEIR 
DISPLAY CODES 


Table 4-1 lists all the available ordered creation mode screens 
and their display codes. The screen numbers of the screens in 
Table 4—1 correspond to the screen numbers labeled in 4.4. 


NOTE: 


For display code NRM, the resulting screens listed in Table 4-1 
are applicable only in ordered creation mode processing. In 
selective creation mode processing, display code NRM always 
causes a standard COBOL coding form screen to be displayed. 
See Section 5 for more information. 


Table 4-1. Ordered Creation Mode Screen Summary (Part 1 of 3) 





4-6 


4-8 


4-9 








Identification division 


Control division 


Identification division 
Environment division 


First display in the ordered mode 
control division 


Identification division 
Environment division 


Special-names select* 
Other special-names screens 


Special-names screen 1 


Special-names screen 2 Environment division 
Special-names select* 


Other special-names screens 


Special-names SYSCHAN SCH Environment division 
Special-names select* 
Other special-names screens 


Special-names alphabet-name Environment division 
Special-names select* 


Other special-names screens 


Special-names SYSSWCH 


Environment division 
Special-names select* 

Other special-names screens 
Special-names class-name Environment division 
Special-names select* 

Other special-names screens 
File control Environment division 
Special-names select* 
Special-names screens 
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Table 4-1. 


Cardreader select 


Cardpunch select 


Printer select 


Tape select 


Sequential disk select 





Relative select 


Indexed select 
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FST 


CDR 
CDP 
PRT 


TAP 


REL 


INX 


Alternate record keys ALK 


|-O control 


|-O control apply 


{oc 


Ordered Creation Mode Screen Summary (Part 2 of 3) 


Cardreader select 
Cardpunch select 
Printer select 

Tape select 
Sequential disk select 
Relative select 
Indexed select 
Alternate record keys 


File control 

File select type 

Other select screens 
Alternate record keys 


File control 

File select type 

Other select screens 
Alternate record keys 


File control 

File select type 

Other select screens 
Alternate record keys 


File control 

File select type 

Other select screens 
Alternate record keys 


File control 

File select type 

Other select screens 
Alternate record keys 


File control 

File select type 

Other select screens 
Alternate record keys 


File control 

File select type 

Other select screens 
Alternate record keys 


Indexed select 
File control 

File select type 
Select screens 


Alternate record keys 


!-O control 
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Table 4—1. 


Ordered Creation Mode Screen Summary (Part 3 of 3) 











4-23 

4-24 LINAGE 

4-25 FD data record form 
4-27 Input CD 1 

4-28 Input CD 2 

4-29 Output CD 

4-30 Data item description 
4-31 OCCURS 

4-32 KEY IS 

4-33 INDEXED BY 

4-34 RENAMES 

4-36 Data division coding form 
4-37 Procedure division coding form 





4.4 for an explanation. 


PDC 
NRM 


File select type 
Select screens 
Alternate record keys 
I-O control apply 


FD 


FD 
LINAGE 
SD 

Input CD 
Output CD 


FD 


Data division coding form 
Input CD 2 
Output CD 


Input CD 1 


Input CD 1 
Input CD 2 
Data division coding form 


OCCURS 

KEY IS 

INDEXED BY 

Data division coding form 


Data item description 
OCCURS 


OCCURS 
KEY IS 


Data division coding form 
Data division coding form 


File control 

FD data record form** 
Data item description 
OCCURS 

KEY IS 

INDEXED BY 

RENAMES 

Condition name 

Data division coding form 


Data division coding form 
Procedure division coding form 


COBEDT automatically display the special-names select screen under certain conditions. See screen 4—4 in 


** Transmission of the FD data record form screen with NRM code causes the display of a data division 
coding form screen only if all the FD/SD files have been defined. See screens 4—25 and 4—36 in 4.4 for 


more information. 
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5. Creating COBOL Source 
Programs in Selective 
Creation Mode 


5.1. OPERATING IN SELECTIVE CREATION MODE 


When to use the if you’re an experienced COBOL user, you may wish to use the 
sich creation selective creation mode, instead of the ordered creation mode, to 
mode 


assist in coding your COBOL source program. In the selective 
creation mode, COBEDT lets you create different portions of your 
program in any order you choose. COBEDT normally displays the 
standard COBOL coding form screens for you to enter source 
data. 


0S/3 EDT/COBOL COBOL EDITOR(V8.@/1)-Selective Creation Mode 
RIKKI KIKI IIR RIE RERER RE RKAEHREIEKEEEEREREERIKEEEUEUKEEKEREREREKEEEEEKRERKEEERK KKK 

Standard COBOL Coding Form Line nnan.nnnn 
cla 


| 
Continuation Code GRD [Next Screen jis the Standard COBOL Coding Form] 
NRM = Normal Continuation TMP = Display Creation Screen List 
CMD = Enter EDT Command Mode sss = Display Creation Screen sss 
RET = Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 
EDT Command:@ 
WHE RAKE ERE KERRIER EEK RERRR EERE EERIE EERE KKK 





All other creation screens (for example, the ordered creation 
mode screens and the COBOL verb skeletons) are available upon 
request. 
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Entering the selective 
creation mode 


No syntax checking 


Work-space line numbers 


Changing line numbers 


Using the ordered 
creation mode screens 


Checking the syntax 


Adopting other selective 
creation mode screens 
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To create your COBOL program via the 

selective creation Mode, yOU MUSt KEEP | sssssscennvsssesseengyiiseceesennnesees 
option 2 in the select creation mode | “sve i cot rose ocr 
field of the option select screen. Once 

this screen is processed, a_ standard 

COBOL coding form screen appears, and 
you may enter your source data. 





COBEDT does not check the syntax of the data entered on a 
standard COBOL coding form screen. 


If you create your program in other than the standard COBOL 
program order, you must make certain that the current position in 
the work-space file reflected by the line number displayed on the 
screen is where you want COBEDT to place the source lines 
created. Do this either by directly changing the line number 
displayed on the current screen or by getting into the EDT 
command mode and then using the @ command to reset the line 
number. COBEDT doesn’t check whether any existing lines are 
overwritten by the lines being created. 


You may at any time request that one of the ordered creation 
mode screens be displayed. You may then use it to create that 
portion of the program and change its line number if desired. 
COBEDT checks to ensure that all required data for that screen is 
entered. If required data is missing, upon transmission, an error 
message is displayed and the location of the error is indicated by 
a blinking field. To correct the error, reposition the cursor to the 
beginning of the blinking field (if it does not automatically 
reposition itself to the error field) and key in the required data. If 
you choose not to correct it, simply retransmit the screen. The 
source lines are then written to the work-space file as they are, 
and no additional action is taken. (For more information on the 
ordered creation mode, see Section 4.) 


You may also request that other selective creation mode screens 
be displayed to aid in your coding. These screens include COBOL 
verb skeletons, the COBOL program skeleton, and the creation 
mode screen list (5.2). 


NOTE: 


In selective creation mode processing, when you transmit an 
ordered or a selective creation mode screen with NRM in its 
continuation code field, the next screen displayed is always a 
standard COBOL coding form screen. 
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& Entering Further, you may enter EDT command mode at any time by 

EDT command mode entering code CMD in the continuation code field of the current 
screen. Upon return, COBEDT resumes selective creation mode 
processing and displays a standard COBOL coding form screen. 


5.2. SELECTIVE CREATION MODE SCREENS 


The selective creation mode screens include the standard COBOL 
coding form screen, the COBOL program skeleton screen, the 
creation mode display screen list screen, and the procedure 
division verb skeleton screens. Appendix A describes the verb 
skeleton screens. The rest of the screens are presented here. 


Standard COBOL Coding Form Screen 


STANDARD COBOL CODING FORM 
5-4 ws . islets 


0S/3 EDT/COBOL COBOL EDITOR(V8.6/1)-Selective Creation Mode 
PRE REREEEEREEREREEEEREREREEEEEKHEEEEEREREEREEEEEEEKEHREREEEEEEREEREEREEERAEHEE 


Standard COBOL Coding Form Line nori.nnnn 










cA iB 


Continuation Code MM [Next Screen is the Standard COBOL Coding Form] 


NRM = Normal Continuation TMP = Display Creation Screen List 
CMD = Enter EDT Command Mode sss = Display Creation Screen sss 
RET = Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vyvvvvvv 


EDT Command: @ 
REE RREEERREREREEEER EERE REREREERERREEEEEEREREEEEEREREREKEEEEEEREKERREKRKEKEEK 


The standard COBOL coding form screen is the first screen 
displayed under the selective creation mode. You may specify 
any one of the continuation codes indicated on the screen and/or 
enter EDT commands without entering any source lines. You may 
also change the line number displayed at any time. 


If the screen is displayed through temporarily entering the 
selective creation mode from the ordered creation mode, 
RET code overwriting default continuation code NRM with RET returns you 
® to ordered mode processing. 
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Creation Mode Display Screen List Screen 


SCREEN 
5.2 


0S/3 EDT/COBOL 


CON=Control Division 
IDE=Identification Div. 
ENV=Environment Division 
SN1=Special-Names 1 
SN2=Special-Names 2 
SCH=SYSCHAN 

ALP=Alphabet Name 
SSW=SYSSWCH 

DAT=Data Item Description 
OCC=Occurs 


CREATION MODE DISPLAY SCREEN LIST 


5-4 





COBOL EDITOR(V8.6/1)-Selective Creation Mode 
RHERARAERERERERRRREREERUEEEEEREREREREKREEREREERERERERERREREERHEREREREREREREREEKKEERARE 


Creation Mode Display Screen List 


CLN=Class Names 
FIL=File Control 
CDR=Cardreader Select 
CDP=Cardpunch Select 
PRT=Printer Select 
TAP=Tape Select 


OIS=Sequential Disk Select 


REL=Relative Select 
INX=Indexed Select 
CND=Condition-Name Desc. 


10C=I-O Control 
APP=Applys 

FDD=FD Display 
LIN=Linage 
SDD=SD Display 
ICD=Input CD 
OCD=Output CD 
FOR=FD Data Rcd 
REN=Renames Desc. 


SKE=Program Skel. 
00C=Data Division Coding Form IDX=INDEXED BY KEY=KEY IS 
PDC=Procedure Division Coding Form 
Display Screen Ga 

enter screen code to display the desired screen 

default NRM indicates no screen display and return to normal processing 


EDT Command:@ 


RHEE REARERA AREER ERE RHEE ERR HERE REERREEEEERERREREREKEE EEE RERRREEREKREREREKERER 





This screen lists all the available creation mode screens and their 
display codes. To display one of these screens, overwrite NRM 
in the display screen field with the corresponding code. 
Otherwise, COBEDT takes default value NRM and, upon 
transmission, displays a standard COBOL coding form screen. 


Choosing your screen 
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ae sss SS SS SSS 


COBOL Program Skeleton Screens 


The COBOL program skeleton describes the divisions and 
sections that make up a COBOL program. The skeleton is divided 
into two screens. The first screen includes those portions of a 
program from the control division to the environment divison 
(screen 5-3), whereas the second one includes the remainder of 
the program from the data division to the procedure division 
(screen 5-4). 


CONTROL, IDENTIFICATION, AND 
ENVIRONMENT DIVISION SKELETON 


SCREEN 
" 5-3 = 


0S/3 EDT/COBOL COBOL EDITOR(V8.@/1)-Selective Creation Mode 


He HII TH TIKI INI IIR IK HIT KHIM AAI HTT IAAT HTK EEREEEEEE 


COBOL Program Skeleton CONTROL to ENVIRONMENT DIVISIONS (1 of 2) 
A B 
(CONTROL DIVISION. 
ALPHABET SECTION. } 
IDENTIFICATION DIVISION. 
PROGRAM-1D. program-name. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. UNIVAC-OS3. 
OBJECT-COMPUTER. UNIVAC-0S3. 
{SPECIAL-NAMES. special-names entry.] 
{INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
{1-O-CONTROL.]] 
Continuation Code GWM) [Next Screen is Part 2 of Program Skeleton] 
EDT Command:@ 
MAHI IKI IHRE EEE EERE EMRE EER ERERNKKEEHEREKEEEEEEEH 





SCREEN DATA AND PROCEDURE DIVISION SKELETON 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Selective Creation Mode 
HMI KKK IIHR HME EEEEEEEEEEEEEEEREEEEEEKEK 
COBOL Program Skeleton DATA to PROCEDURE DIVISIONS (2 of 2) 
A B 
DATA DIVISION. 
(FILE SECTION.) 
{WORKING-STORAGE SECTION. } 
[LINKAGE SECTION. ] 
[COMMUNICATION SECTION. ] 
PROCEDURE DIVISION. 
(DECLARATIVES. 
{section-name SECTION [segment-number]. declaratives-sentence 
(paragraph-name. [sentence]...}...} 
END DECLARATIVES. 
{section-name SECTION [segment -number}. 
[paragraph-name. [sentence]...]..-.} 
Continuation Code Ci [Next Screen is Standard COBOL Coding Form] 
EDT Command:@ 
He HK He We Fe He KKH HK IH HI KIKI KEREKAKRKEEEKEREEKREEERRAEEEEEE 





The next screen displayed is a standard COBOL coding form 
screen. 
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5.3. SAMPLE CREATION SESSION 





This sample session shows how to create a COBOL source 
program in the standard COBOL program order via the selective 
creation mode. The example starts with choosing the creation 
mode on the option select screen. We then code the source 
statements with the standard COBOL coding form screens and 
several other creation screens. The example ends with writing 
the program to a permanent SAT file. The program created in 
this example is identical to the one in Section 4. 


N T 
YD OPTION SELEC 


OS/3 EDT/COBOL COBOL EDITOR(V8.0/1) 


FEF IE IMENT I IIIA AAI TRI TDI II A AAAI A AMT ATIRA HR IRERIEEEEIEREKREN EEE EERE ERERKREEEEEEEE 


Select Creation Mode : C#) 












1=Create in COBOL Program Order 
2=Create Selected Portions of the COBOL Program 





Continuation Code Gia 
NRM = Normal Continuation CMD = Enter EDT Command Mode 






EDT Command:@ 
FERIA TTI IKK KERRI EAE EAE EEE REEREE EERE EERE REEKEEEEEEREEEK 









To use the standard COBOL coding screens, we 
select 2 for the creation mode and NRM for 
normal continuation on the option select screen. 
Upon transmission, a standard COBOL coding 
form screen is displayed with current work-space 








line number 1. 
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& STANDARD COBOL CODING FORM 
SCREEN 
2 aS : 








0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Selective Creation Mode 
FEAR RII III ITT A IAI IOAN SAS ATA ANANSI ASIII AIA | 


Standard COBOL Coding Form 





IDENTIFICATION DIVISION. 
PROGRAM-1D. PROG1. 
AUTHOR. J.JONES. 
INSTALLATION. UNIVAC. 
ENVIRONMENT DIVISION. 


CONFIGURATION SECTION. 
SOURCE-COMPUTER. UNIVAC-0S3. 
OBJECT-COMPUTER. UNIVAC-0OS3. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 


Continuation Code (1X) [Next Screen is the Standard COBOL Coding Form] 
NRM = Normal Continuation TMP = Display Creation Screen List 

CMD = Enter EDT Command Mode’ sss = Display Creation Screen sss 

RET = Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 

EDT Command: @ 


HHH KEKE HERE EK K HK IEIKIKRIKERURKETKUREMEIEERREEAERUREEEEREKREEREEKERREEEEN 





On this screen, we key in our COBOL source 
™ = statements. Because we need assistance in 
coding the next part of the program, the 
© INDEXED SELECT clause, we key in creation 
screen request code INX in the continuation code 
field to display the indexed select screen. Upon 
transmission, the source lines are created and 
SOURCE placed in the ONS pace file, and then the 
LINES requested screen is displayed. 
CREATED 


1.0000 IDENTIFICATION DIVISION. 
2.0000 PROGRAM-ID. PROG1. 
' 3.0000 AUTHOR. J.JONES. 
4.0000 INSTALLATION. UNIVAC. 
5.0000 ENVIRONMENT DIVISION. 
6.0000 CONFIGURATION SECTION. 
7.0000 SOURCE -COMPUTER. UNIVAC-0S3. 
8.0000 OBJECT-COMPUTER. UNIVAC-OS3. 
9.0900 INPUT-OUTPUT SECTION. 
10.9000 FILE-CONTROL. 
ne “ieee 
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INDEXED SELECT 
SCREEN 
3 Ss ee 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


RARER REKREE EEE EEE EERE REE EEEEEEREEEERUEREEREKKEEEEEEEEREREREREREREEREEREKRKEE 


Indexed Select Line 

















A B 
SELECT 

<file-name> 
ASSIGN (TO) DISC -BrENtaae <tfdname> {J<F , v> 
[RESERVE <1,2> AREA(S)} 
ORGANIZATION (IS) INDEXED 
[ACCESS (MODE IS) BXaeNIDRSEYEKSEQUENTIAL ,RANDOM, DYNAMIC>) 
RECORD (KEY IS) Bie Ei da7 <data-name> 


[CFELE) STATUS (IS) <data-name>]. 











Continuation Code GBM [Next Screen is Data Division-FD] 







NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode FST = Display File Select Type Codes 
fff = Next File Select Code ALK = Alternate Record Keys Required 






EDT Command: @ 
REREREEEREREAREEERAREEEEEEKEEREKREEEEKEEREEREREREREREREREKEEREEEEEREKEREEEKEKEEEEKKEKKK 









Here, we fill in our data and select default 
continuation code NRM. Upon transmission, a 
standard COBOL coding form screen is displayed, 
with current work-space line number 16, after the 
















SOURCE source lines are created and placed in the 
LINES work-space file. 
CREATED 





11.0000 SELECT TRANFIL 

12.0000 ASSIGN TO DISC-TRANFIL-V 
13.0000 ORGANIZATION IS INDEXED 
14.0000 ACCESS MODE IS SEQUENTIAL 


15.9000 RECORD KEY IS TRAN-KEY. 
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On the following four standard COBOL coding form screens, we enter 
our source statements and select default continuation code NRM. 


Upon transmission, COBEDT creates the source lines as shown after 
each screen. 





STANDARD COBOL CODING FORM 1 
SCREEN 


ry 












0S/3 EDT/COBOL COBOL EDITOR(V8.@/1)-Selective Creation Mode 


WKH H KKH KKK HIKE IIHR KIER RRR ERE REE ERERERE EEE REE RUREEREREUEREEREEREEEEEEEEERKEE 
Standard COBOL Coding Form Line 








DATA DIVISION. 
FILE SECTION. 
FO TRANFIL 


LABEL RECORDS ARE STANDARD. 





Continuation Code (i> [Next Screen is the Standard COBOL Coding Form] 





NRM = Normal Continuation TMP = Display Creation Screen List 
CMD = Enter EDT Command Mode’ sss = Display Creation Screen sss 
RET = Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 






EDT Command: @ 


HK KRERKEEEEE EKER EEE RE EKREREREKEEKEEEEEEEEREEEREEREKEEEREEKEKRERERKREEKEEREEKEREKKKE 






SOURCE 
LINES 
CREATED 








16.0000 DATA DIVISION. 

17.0000 FILE SECTION. 

18.0000 FD TRANFIL 

19.9000 LABEL RECORDS ARE STANDARD. 
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fea STANDARD COBOL CODING FORM 2 


0S/3 EDT/COBOL COBOL EDITOR(V8.6/1)-Selective Creation Mode 
Pht Petes ease ti sere rere ere LETT SS TET PS PST ee ere reer ere rir iTrricirTicr tris 


Standard COBOL Coding Form Line § 














TRAN - OUT. 
@3 TRAN-KEY. 
@5 TRAN-PUB PIC XX. 
@5 TRAN-REPORT PIC 99. 
_ @5 TRAN-SORT PIC X(23). 
@S5 TRAN- SEQUENCE PIC 9¢4). 
@3 TRAN-VARIABLE PIC X 
OCCURS 1 TO 106 TIMES 
DEPENDING ON SYS-REC-SIZE. 





Continuation Code G##M) [Next Screen is the Standard COBOL Coding Form] 
NRM = Normal Continuation TMP = Display Creation Screen List 

CMD = Enter EDT Command Mode sss = Display Creation Screen sss 

RET = Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 


EDT Command:@ 
HH KK HK KKK HK KKH IKK KKH HII IK KKK IIHR RK KIKI HEHEHE KEE REEREEEEKEEEEE 








SOURCE 
LINES 
CREATED 







20.0000 @1 TRAN-OUT. 

21.9000 @3 TRAN-KEY. 

22.0000 @5 TRAN-PUB PIC XX. 

23.0000 @5 TRAN-REPORT PIC 99. 

24.0000 @5 TRAN-SORT PIC x(23). 

25.9000 @5 TRAN-SEQUENCE PIC 9¢4). 

26.9000 @3 TRAN-VARIABLE PIC X 

27.0000 OCCURS 1 TO 100 TIMES 

28.0000 DEPENDING ON SYS-REC-SIZE. 
se 
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SCREEN STANDARD COBOL CODING FORM 3 
6 - “ 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Selective Creation Mode 


KHIR RARER KHIR IIIS IT TETRA REET REE ITER EEE EEE EERE AREEEKEEEE 
Standard COBOL Coding Form Line 








cl OB 
WORKING-STORAGE SECTION. 
@1 DUMMY-OUT. 
03 DUMMY-KEY. 
@5 DUMMY - PUB PIC XX. 
@5 DUMMY-REPORT PIC 99. 
@5 DUMMY -SORT PIC X(23). 
@5 DUMMY - SEQUENCE PIC 94). 
@3  DUMMY- VARIABLE PIC X(100). 
77 SYS-REC-SIZE PIC 9(4) VALUE 6. 





Continuation Code (MM [Next Screen is the Standard COBOL Coding Form] 
NRM = Normal Continuation TMP = Display Creation Screen List 
CMD = Enter EDT Command Mode’ sss = Display Creation Screen sss 


RET Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 
EDT Command:@ 


HI HHH KIKI HIKE IKI IIIT HII TTI I KA KEEEEEEEREEREEKKEEEERERREREREEE 


SOURCE 
LINES 
CREATED 
WORKING-STORAGE SECTION. 
@1 DUMMY-OUT. 
03 DUMMY-KEY. 
05 DUMMY-PUB PIC XX. 
a 05 DUMMY-REPORT PIC 99. 
| 34.0000 05 DUMMY-SORT PIC X(23). 
— 35.0000 @5 DUMMY -SEQUENCE PIC 9(4). 
— 36.0000 @3 DUMMY-VARIABLE PIC X( 100). 






PIC 9(4) VALUE @. 





77 ~=SYS-REC-SIZE 
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COBOL EDITOR (COBEDT) 


SCREEN STANDARD COBOL CODING FORM 4 
_ 7 So 


08/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Selective Creation Mode 


HRI KREINER ERE KER ERERERUEEEE EEE KEREEREREEREREREEREK ER 


Standard COBOL Coding Form Line aa 








cA OB 
PROCEDURE DIVISION. 
PRIMARY -PARAGRAPH. 
OPEN OUTPUT TRANFIL. 
MOVE “AA” TO DUMMY -PUB. 
MOVE 99 TO DUMMY-REPORT. 
MOVE ALL "“B” TO DUMMY -SORT. 
MOVE 1 TO DUMMY -SEQUENCE. 
MOVE ALL ”“C” TO DUMMY-VARIABLE. 





Continuation Code GBM [Next Screen is the Standard COBOL Coding Form] 


NRM = Normal Continuation TMP = Display Creation Screen List 
CMD = Enter EDT Command Mode sss = Display Creation Screen sss 
RET = Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 


EDT Command:@ 
REMC EKEERERERR EEE ERIKEREREREREKEEEREREEREREKEERUEREKEREKEEEEEREREEEREEREEEER 


SOURCE 
LINES 
CREATED 


PROCEDURE DIVISION. 
PRIMARY -PARAGRAPH. 
OPEN OUTPUT TRANFIL. 
MOVE “AA“ TO DUMMY -PUB. 
MOVE 99 TO DUMMY -REPORT. 
MOVE ALL “B” TO DUMMY-SORT. 
MOVE 1 TO DUMMY -SEQUENCE. 
MOVE ALL “C“ TO DUMMY-VARIABLE. 
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After COBEDT has placed these source lines in the work-space file, it 


displays another standard COBOL coding form screen with current 
work-space line number 46. 


STANDARD COBOL CODING FORM 
SCREEN 
" 8 aa — - a 


0S/3 EDT/COBOL COBOL EDITOR(V8.@/1)-Selective Creation Mode 


HK KEKE EKER REE REE REE ERREHEREERER EUR E RE MEEIEEEEREREREEREREEEEEEE 
Standard COBOL Coding Form 








LOOP -HERE. 
ADD 1 TO SYS-REC-SIZE. 


MOVE DUMMY-OUT TO TRAN-OUT. 
WRITE TRAN-OUT INVALID KEY 





Continuation Code [Next Screen is the Standard COBOL Coding Form] 
NRM = Normal Continuation TMP = Display Creation Screen List 

CMD = Enter EDT Command Mode’ sss = Display Creation Screen sss 

RET = Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 


EDT Command:@ 
HHH ERERE ERE REE EEREKREREREEEEREEE EEE REE 


Here, we enter more source statements. Because 


we need assistance in coding the next verb 
DISPLAY, we overwrite default code NRM with 
DISPLAY to request the DISPLAY verb skeleton. 
Upon transmission, the skeleton screen appears, 
with current work-space line number 50, after the 
SOURCE source lines are created and placed in the 


LINES work-space file. 
CREATED 


46.0000 LOOP -HERE. 
47.0000 ADD 1 TO SYS-REC-SIZE. 
48.0000 MOVE DUMMY-OUT TO TRAN-OUT. 


49.0000 WRITE TRAN-OUT INVALID KEY 
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SCREEN DISPLAY STATEMENT 


9 






















0S/3 EDT/COBOL COBOL EDITOR(V8.@/1)-Selective Creation Mode 
FAIR III III III III III III III IIA IT TI I IOS SOS SOSA AISA AIA IAI 


DISPLAY Statement 


DISPLAY {identifier-1,literal-1} [,{identifier-2,literal-2}] ... 


[UPON mnemonic-name [USING {identifier-3, literal -3}]] 
RRR KEKE EEK ERE REE HK KEKE EEK EREKEEE ERE REKEHEKKKREE 


Procedure Division Coding Form 





cA 


DISPLAY “INVALID KEY” TRAN-KEY GO TO END-IT. 
IF SYS-REC-SIZE < 100 


GO TO LOOP-HERE. 





| 
| 
| ADD 1 TO DUMMY - SEQUENCE 
| 
{ 


Continuation Code G@RH) [Next Screen is Procedure Division Coding Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode’ vvvvvvvv = Display vvvvvvvv Verb Skeleton 


EDT Command: @ 
HH He HH KKK KKK HK KEIICHI RHR EEREKREEEKEEKEMEKEE 





On this screen, we code the DISPLAY verb and 
more procedure division source statements and 
select default continuation code NRM. Upon 
transmission, a standard COBOL coding form 
screen appears, with current work-space line 
number 54, after the source lines are created and 
placed in the work-space file. 


























SOURCE 
LINES 
CREATED 










50.0000 DISPLAY “INVALID KEY” TRAN-KEY GO TO END-IT. 
51.0000 IF SYS-REC-SIZE < 1060 
52.9000 ADD 1 TO DUMMY -SEQUENCE 


53.9000 GO TO LOOP-HERE. 
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DING FORM 
SCREEN STANDARD COBOL CO 








0S/3 EOT/COBOL COBOL EDITOR(V8.0/1)-Selective Creation Mode 
MK KEKE KIER ERREEREEREEKEEEEEEEREEREEEEHREEEEREREREEEEREEREREKREREEEREEERER 
Standard COBOL Coding Form Line 
cA OB 
END-IT. 
CLOSE TRANFIL. 
STOP RUN. 


| 
| 
I 
\ 
| 
| 
I 


Continuation Code GBBp [Next Screen is the Standard COBOL Coding Form] 


NRM = Normal Continuation TMP = Display Creation Screen List 
CMD = Enter EDT Command Mode sss = Display Creation Screen sss 
RET = Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 


EDT Command:@ 


HREM EEEEREUEEEERRERERERERESN 





Now we enter the last paragraph for our 
program and overwrite default continuation 
code NRM with CMD. Upon _ transmission, 
COBEDT ctvates the source lines and places 
them in the work-space file. COBEDT then 
enters the EDT command mode, and the next 
work-space line number (57.0000) appears on 
the workstation screen by itself. 


SOURCE 
LINES 
CREATED 





54.0000 END-IT. 
55.0000 CLOSE TRANFIL. 
56.0000 STOP RUN. 
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eee 







vi 
“I 


SCREEN 
2 


ON A UBF WD = 












SCREEN 
3 






SCREEN 
4 















SCREEN 
5 















SCREEN 
6 


Te PRINT 
- 0000 
- 9000 
- 9000 
- 0000 
- 9000 
- 0000 
- 9000 
- 0000 
- 9000 
- 9000 
- 0000 
- 9000 
- 9000 
- 9900 
- 9000 
- 9000 
- 9000 
- 9000 
-0000 
- 9000 
- 0000 
- 0000 
- 0000 
- 0000 
- 9006 
- 9000 
- 0000 
- 0000 
- 60060 
- 9900 
- 9900 
- 9000 
- 0000 
- 0000 
-90900 
- 9000 
- 0000 
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At this point, the creation of the program is 
complete. We key in the @PRINT command to 
see what our entire program looks like in the 
work-space file before terminating COBEDT. 


IDENTIFICATION DIVISION. 
PROGRAM-ID. PROG1. 
AUTHOR. J.JONES. 
INSTALLATION. UNIVAC. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. UNIVAC-OS3. 
OBJECT-COMPUTER. UNIVAC-OS3. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT TRANFIL 
ASSIGN TO DISC-TRANFIL-V 
ORGANIZATION IS INDEXED 
ACCESS MODE IS SEQUENTIAL 
RECORD KEY IS TRAN-KEY. 
DATA DIVISION. 
FILE SECTION. 


FD TRANFIL 
LABEL RECORDS ARE STANDARD. 
@1 TRAN-OUT. 
@3 TRAN-KEY. 
@5 TRAN-PUB PIC XX. 
@5 TRAN-REPORT PIC 99. 
@5 TRAN-SORT PIC X(23). 
@5 TRAN-SEQUENCE PIC 9(4). 
@3 TRAN-VARIABLE PIC X 


OCCURS 1 TO 100 TIMES 
DEPENDING ON SYS-REC-SIZE. 
WORKING-STORAGE SECTION. 
@1 DUMMY-OUT. 
@3 DUMMY-KEY. 


@5 DUMMY - PUB PIC XX. 

@5 DUMMY -REPORT PIC 99. 

@©5 DUMMY -SORT PIC X(23). 

95 DUMMY -SEQUENCE PIC 9(4). 
@3 DUMMY -VARIABLE PIC X(100). 


77 ~=SYS-REC-SIZE PIC 9(4) VALUE @. 
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SCREEN 
vi 


SCREEN 
8 


SCREEN 
9 


SCREEN 
10 
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PROCEDURE DIVISION. 
39.0000 PRIMARY -PARAGRAPH. 
40.0000 OPEN OUTPUT TRANFIL. 

= 41.0000 MOVE “AA” TO DUMMY-PUB. 

42.0000 MOVE 99 TO DUMMY -REPORT. 

43.0000 MOVE ALL “B” TO DUMMY-SORT. 

44.0000 MOVE 1 TO DUMMY-SEQUENCE. 

45.0000 MOVE ALL “C” TO DUMMY-VARIABLE. 

46.0000 LOOP -HERE. 

47.0000 ADD 1 TO SYS-REC-SIZE. 

48.0000 MOVE DUMMY-OUT TO TRAN-OUT. 

| 49.0000 WRITE TRAN-OUT INVALID KEY 

50.0000 DISPLAY “INVALID KEY” TRAN-KEY GO TO END-IT. 
51.0000 IF SYS-REC-SIZE < 100 

52.0000 ADD 1 TO DUMMY -SEQUENCE 

53.9000 GO TO LOOP-HERE. 

END-IT. 
CLOSE TRANFIL. 
: 56.0000 STOP RUN. 

57 . 0000 {Giele]:fo] mam a, 10) 
57 . OOO O>(GE" TS Mdm Oe. c0 1c ee Oe OS NOY ee 
Digan 



























Now, we key in the @COBOL END command to 
end this COBEDT creation session. We then write 
our program (PROG1) to a permanent SAT file 
(TESTFIL) on disk volume AOO011. Finally, we 
terminate this EDT session with the @HALT 
command. 
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EDT commands 


Editing an existing 
program 


@READ command 


Editing a program during 
creation 
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6. Editing COBOL 
Source Programs 


You may either edit a COBOL source program while creating it or 
edit an existing COBOL program. The commands of general 
editor EDT play important roles in the program editing process. 
Therefore, you should understand the function of these 
commands and familiarize yourself with their use to successfully 
modify your programs. For your reference, Appendix B 
summarizes the EDT commands. If you need a_ detailed 
explanation of these commands, see the general editor (EDT) 
user guide/programmer reference, UP-8828 (current version). 


To edit an existing COBOL source program, you may use either 
COBEDT or general editor EDT. Since EDT does not perform 
syntax checking or provide assistance through program creation 
screens as COBEDT, it is usually used for making minor changes. 
In both cases, however, you must first read a copy of the 
program into the work-space file by entering the EDT @READ 
command immediately after calling the editor. Thereafter, the 
methods of editing an existing program under COBEDT are 
essentially identical to editing a program during its creation. 


During the creation of your COBOL program in the ordered or 
selective mode, to edit your source lines already entered, you 
may: 


m key in the appropriate EDT commands directly in the EDT 
command field of the current screen; or 


m specify the CMD continuation code on that screen to enter 
the EDT command mode and then key in EDT commands 
there. 


You may also request the display of creation screens to assist in 
editing your program. 
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6.1. SAMPLE SESSION FOR EDITING A PROGRAM DURING ITS CREATION 


Purpose of this session 


This example shows how to edit your COBOL program while 
you're still in the process of creating it in the ordered creation 
mode of COBEDT. The program used here is based on the one 


created in Section 4. 


Let's begin this example from the identification division screen. 


SCREEN 


0S/3 EDT/COBOL 


REE HEHKREKREE ARERR REKEEEEEKREREREREEEEEEEEREEEERERKEEEREERAKEMEEEREREEREKEE 


A OB 


IDENTIFICATION DIVISION. <Enter X if Line not to be created in Select Mode> 


PROGRAM- 10. Baiteten| 
(AUTHOR. BBBIeL TSS 


CINSTALLATION. BULRG7Zte 


[DATE-WRITTEN. 
{DATE- COMPILED. 
{SECURITY. 


Continuation Code (BM) [Next Screen is Environment Division) 
Normal Continuation SEL = Enter Selective Creation Mode 
Enter EDT Command Mode CON = Display Control Division Screen 


EDT Command: @gual 


HERE RREAKEEEERE ERE EERE HERE ARRKEEKREERRREEREERKERKKEREEREREEKEKEERER 


NRM 
CMD 


SOURCE 
LINES 
CREATED 















COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


Identification Division 











Here, we enter three source statements for the 
identification division and then the @PRINT 
command, which requests the display of the 
work-space file. We then press the XMIT key 
and the source lines are displayed. 


IDENTIFICATION DIVISION. 
PROGRAM-ID. PROG1. 


AUTHOR. 


J. JONES. 


INSTALLATION. UNIVAC. 
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SCREEN 
ve 2 


0S/3 EDT/COBOL COBOL EDITOR(V8.@/1)-Ordered Creation Mode 


WRK EEEREER EMRE EEN EEE EEE EREEEREEREEEEEEREREEEREREREREEEEE 




























Environment Division Line 





A B 
ENVIRONMENT DIVISION. B@<Enter X if Division is not to be created> 
CONFIGURATION SECTION. 
SOURCE -COMPUTER. UNIVAC-0S3 
{(WITH) DEBUGGING MODE). <Enter X if Line is to be created> 
OBJECT-COMPUTER. UNIVAC-0S3 
[<PROGRAM COLLATING) SEQUENCE (IS) <alphabet-name>} 
(SEGMENT-LIMIT IS <segment-number>}]. 
Continuation Code SEL [Next Screen is File Control] 


NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode SN1 = Display Special-Names 1 Screen 
SCH = Display SYSCHAN Screen SN2 = Display Special-Names 2 Screen 


ALP = Display Alphabet Name Screen SSW = Display SYSSWCH Screen 
CLN = Display Class Name Screen 


EDT Command:@ 
KK IKK RIKER EKER ERIE MERE EERE REE EREREREEKKEKREREERERUEEEEK 





After we press the XMIT key again to continue 
COBEDT processing, the environment division 
screen appears, with current work-space line 
number 5. At this point, however, we decide to 
add more source statements to the identification 
division. Therefore, we enter X_ in the 
ENVIRONMENT DIVISION line and overwrite 
continuation code NRM with SEL. 








When this environment division screen is 
transmitted, COBEDT enters the selective creation 
mode and displays a standard COBOL coding 


form screen with current work-space line number 
5. 
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SCREEN 
x} 



















0S/3 EDT/COBOL COBOL EDITOR(V8.@/1)-Selective Creation Mode 
FEI III III III III IIIT ITT TRIO IAI TAI AAAI ADT 


Standard COBOL Coding Form Line —l 




























1981. 
1981. 


DATE-WRITTEN 
DATE-COMPILED. 






DECEMBER 6, 
DECEMBER 6, 











Continuation Code (Gp {Next Screen is the Standard COBOL Coding Form] 
NRM = Normal Continuation TMP = Display Creation Screen List 
CMD = Enter EDT Command Mode sss = Display Creation Screen sss 
RET = Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 







EDT Command: @ 
REE EEREARREREREREKEERKE EKER REE EREKREEEEREEREEEEEEEREKEKEEKKEEEEREEREERERREEREEREKE 





On this screen, we _ enter two _ additional 
identification division source lines, overwrite line 
number 5 with 4.1 to avoid these two lines being 
overwritten, and overwrite continuation code 
NRM with RET. After we transmit this screen, 


COBEDT returns to the ordered creation mode 
and redisplays the environment division screen. 
The current work-space line number displayed on 
the screen is still 5 as we exited, since in 
ordered creation mode _ processing the line 
numbers displayed on the ordered mode screens 
can't be changed. 
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SCREEN 
4 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


MRK EERIE RHE MEEKER EERE EEE MERE EEREEKEKEREEREREEEREREEKEEEREE 
Environment Division Line Rae 


A B 
ENVIRONMENT DIVISION. <Enter X if Division is not to be created> 
CONFIGURATION SECTION. 
SOURCE -COMPUTER. UNIVAC-0S3 
[CWITH) DEBUGGING MODE]. <Enter X if Line is to be created> 
OBJECT-COMPUTER. UNIVAC-0S3 
[CPROGRAM COLLATING) SEQUENCE (IS) <alphabet -name>] 
(SEGMENT-LIMIT IS <segment-number>]. 
Continuation Code (Next Screen is File Control} 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode SN1 = Display Special-Names 1 Screen 
SCH = Display SYSCHAN Screen SN2 = Display Special-Names 2 Screen 
ALP = Display Alphabet Name Screen SSW = Display SYSSWCH Screen 
CLN = Display Class Name Screen 


EDT Command: @(L7-3ans 
HK KKH KEE ERE REM EEREREEEKEREKREREEEKEEHEERKEEREEREEERREREEEEEREEREEREEEEEEREREEK 


SOURCE 


LINES Here, we simply enter the @PRINT command in 
CREATED the EDT command field and then press the XMIT 
UP TO key. The source lines are then displayed. We 
THIS TIME press the XMIT key again to continue creating 
FROM our source program. 
SCREEN 1 


IDENTIFICATION DIVISION. 
PROGRAM-ID. PROG1. 

AUTHOR. J.JONES. 

INSTALLATION. UNIVAC. 
DATE-WRITTEN. DECEMBER 6, 1981. 
DATE-COMPILED. DECEMBER 6, 1981. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. UNIVAC-OS3. 
OBJECT-COMPUTER. UNIVAC-OS3. 


ONauvur FEW = 











UP-9 106 SPERRY UNIVAC OS/3 6-6 
COBOL EDITOR (COBEDT) 





Assume we've reached the end of the program and entered the last 


paragraph for it. 





SCREEN 
5 







O0S/3 EDT/COBOL COBOL EDITOR(V8./1)-Ordered Creation Mode 


REE HEERERE REET EKER ERE EEE EEE EERE ERE ERE EREREEEEEEKREREAAK 
Procedure Division Coding Form Line $82 
cA OB 


CLOSE TRANFIL. 
STOP RUN. 


Continuation Code i cMOg (Next Screen is Procedure Division Coding Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = ENTER EDT COMMAND MODE vvvvvvvv = Display vvvvvvvv Verb Skeleton 


EDT Command:@ 
RARER ERE REE REE KKK ERURERRKEEEKEKEEKEERREEREKRKEEEAAN KE 


We overwrite continuation code NRM with CMD 
EDT to enter the EDT command mode. After the 
COMMAND 
MODE screen is processed, the next work-space line 
ENTERED number (56.0000) by itself is displayed, ready to 
accept the EDT commands. 








MT Te: PRINT 38:52 














38.0000 PROCEDURE DIVISION. 

39.0000 PRIMARY - PARAGRAPH. 

40.0000 OPEN OUTPUT TRANFIL. 

41.0000 MOVE “AA” TO DUMMY-PUB. 

42.0000 MOVE 99 TO DUMMY -REPORT. 
43.0000 MOVE ALL ”B” TO DUMMY-SORT. 
44.0000 MOVE 1 TO DUMMY-SEQUENCE. 
45.0000 MOVE ALL “C” TO DUMMY-VARIABLE. 
46.0000 LOOP -HERE. 

47.0900 MOVE DUMMY-OUT TO TRAN-OUT. 
48.0000 WRITE TRAN-OUT INVALID KEY 
49.0000 ADD 1 TO DUMMY-SEQUENCE 
50.0000 DISPLAY “INVALID KEY” TRAN-KEY GO TO END-IT. 
51.0606 IF SYS-REC-SIZE < 106 

52.0000 GO TO LOOP-HERE. 

















To examine the source lines 38 through 52, we 
enter the @PRINT command. After these lines are 
displayed and checked, we enter the @FORMAT 
command to return to COBEDT at a procedure 
division coding form screen with line number 56. 
We will make further changes to the program via 
this screen. 
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SCREEN 
6 


0S/3 EDT/COBOL 


RRR EREREREEEEE EER EERE EE EEE UUKREREREHAKRE EE EERREREKEKEEERENEEEREREEEAE 


Procedure Division Coding Form Line 


cA OB 
| 
| 
| 
| 
| 
I 
| 
I 
| 
I 


Continuation Code Gp 





COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


ADD 1 TO SYS-REC-SIZE 


(Next Screen is Procedure Division Coding Form] 


NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode vvvvvvvv = Display vvvvvvvv Verb Skeleton 


EDT Command: @0\ 73. a (nes i 
HHI ERE RIKKI TERE IIE REE IEEE IRIE REE EREEREEEENAINE 













47 






50 
54 









55 









45. 
46. 
46. 


48. 


51. 
52. 
53. 
54. 


46. 
. 2000> UGE 


ENTERED 






















Because we decide to insert a new source line 
between lines 46 and 47 and to move line 49 to 
51.1, we overwrite line number 56 with 46.1 on 
the screen and enter the new source line and the 
@MOVE = command. We also overwrite 
continuation code NRM_ with CMD. Upon 
transmission, the next work-space line number 
(46.2000) by itself is displayed. 





9000 MOVE ALL ”C” TO DUMMY-VARIABLE. 

0000 LOOP -HERE. 

1000 ADD 1 TO SYS-REC-SIZE. 

- 0000 MOVE DUMMY-OUT TO TRAN-OUT. 

9000 WRITE TRAN-OUT INVALID KEY 

+0000 DISPLAY “INVALID KEY” TRAN-KEY GO TO END-IT. 
- 0000 IF SYS-REC-SIZE < 16¢ 

1000 ADD 1 TO DUMMY -SEQUENCE 

9000 GO TO LOOP-HERE. 

9000 END-IT. 

9090 CLOSE TRANFIL. 

- 0060 STOP RUN. 

200 0> QL Oech ae ee a CS tO 


Here, we first enter the @PRINT command to see 
the source lines from 45 through 55. Since we've 
completed creating our program and made the 
desired changes, we then enter the @WRITE 
command to write our program to a permanent 
SAT file and the @COBOL END command to 
terminate the current COBEDT session. 
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6.2. SAMPLE SESSION FOR EDITING A PROGRAM VIA THE ORDERED 
CREATION MODE OF COBEDT 


Purpose of this session This example shows how to edit an existing COBOL source 
program via the ordered creation mode of COBEDT. 


Let’s start with a program named PROG2 that contains only the 
procedure division source lines. We want to add to the program 
the source lines for other divisions in the COBOL program order 
to make it a complete program. 


After you call both EDT and COBEDT, the option select screen is 
displayed. 
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@READ command 


@MOVE command 


@ command 


@FORMAT command 
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SCREEN 
1 


0S/3 EDT/COBOL COBOL EDITOR(V8.6/1) 


RARER KEKE ERE EEE EEE ERE REE EERE EEEEREEEUEEEREERKEEEREREREEEREREEREKKEKKE 
Select Creation Mode : @ 


1=Create in COBOL Program Order 
2=Create Selected Portions of the COBOL Program 


Continuation Code 
NRM=Normal Continuation CMD=Enter EDT Command Mode 


EDT Command:@ 
KEKE EEKEKREREEEEKEEEKEEKREKEEEEEEEKRKEEEEREEKEEKEEKREEREREKRKEEREERERECEREEEEEEKEK 


For this sample session, we enter 1 in the select 

EDT creation mode field and CMD in the continuation 

COMMAND code field. The next screen displayed contains 

MODE only the current work-space line number. Since 

ENTERED this is a new COBEDT session, the line number is 
1.0000. 


SPDT READ MO=PROG2,FIL=TEST2, VSN=AQOO22,SAT=YES 
101. 0000>( eh] San neem LT 

101. 0000>qza 

1. 0000r MELE 


Here, we enter the @READ command to transfer 
a copy of our program (PROG2) from the 
permanent SAT file (TEST2) into the work-space 
file. The next work-space line number displayed 
is 101.0000, «ince there are 100 lines in PROG2. 
To ensure that these lines aren't overwritten by 
future entries, we use the @MOVE command to 
move them to a new line location, leaving enough 
space for the new lines. We then enter the @ 
command to set the current work-space line 
number back to 1. 







Entering the @FORMAT command returns us to 
COBEDT and the identification division screen 
with work-space line number 1. From here on, 
we create the remaining sections of our program 
in the usual manner. 
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Assume we've completed editing our program and 400 additional 
source lines have been created and placed in the work-space file. A 
data division coding form screen is displayed, with next work-space 
line number 401. 





SCREEN 
2 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


RRA IKE ERE IRE KIER EK IKI KER EERE RIEKREIKREKRE IKKE KHER REE 


Data Division Coding Form 


Level# Data Description 


Continuation Code CMY [Next Screen is Data Division Coding Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD Enter EDT Command Mode PoC Display Procedure Division Coding Form 
ICD = Display Input CD Screen DAT = Display Data Item Description Screen 
OCD = Display Output CD Screen CND = Display Condition Name Screen 
REN = Display RENAMES Screen 





EDT Command: @ 


REE EKER KERR REIKI RIKKI REITER IK HRITHIK IIIA IKE RETIREE EERE IAAREKRKEEEENIK 


We overwrite continuation code NRM with CMD 
to get into the EDT command mode. Upon 
transmission, the current work-space line number 
(401.0000) by itself is displayed, ready to accept 


ENTERED the EDT commands. 













491.9900) 
401.0000D /FIL= 
ED@31  OVERWRITE? (YES or NO)>I& 


401 RT HALT | 


»COBOL END 
WRITE MO=PROG2,FIL=TEST2,VSN=A00022,SAT=YES 






















We enter the @COBOL END command to 
terminate the COBEDT session. Then we enter 
the @WRITE command to write our edited 
program (PROG2) to the permanent SAT file 
(TEST2). Because a copy of our program already 





@COBOL END command 







Q@WRITE command 







EDT message 
existed on the file, we’re asked if we want to 
overwrite the previous version. We respond yes 
@HALT command (key in Y). Finally, we terminate the EDT session 






by entering @HALT. 
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6.3. SAMPLE SESSION FOR EDITING A PROGRAM VIA THE SELECTIVE 
CREATION MODE OF COBEDT 


Purpose of this session 


This example shows how to edit an existing COBOL source 
program via the selective creation mode of COBEDT. 


Assume we have a program named PROG3 containing many 
syntax errors. We decide to activate COBEDT to assist in 
correcting these errors. We choose to operate in the selective 
creation mode because we only wish to use the creation screens 
selectively. 


Let’s begin this example from the option select screen. 


1 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1) 


KKK KKK KEKE EEEEEERERERERKEREEEE 
Select Creation Mode : 


1=Create in COBOL Program Order . 
2=Create Selected Portions of the COBOL Program 










Continuation Code RH) 
NRM=Normal Continuation CMD=Enter EDT Command Mode 












EDT Command: GiIS eM ella tele eae ae ae See DET) Bey Beas) 
RIKER IRE HIKER ERR RRR ER AIT ER III IIIS SAI III ASIII IA AA IAN NNN AAA AAI ARIA IIIA IIIS. 









We select the default options and enter the 
@READ command to transfer a copy of our 
program (PROG3) into the work-space file. Upon 
transmission, a standard COBOL coding form 
screen is displayed, with current work-space line 
number 101. (Assume PROG3 contains 100 
source lines.) 
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SCREEN 
2 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Selective Creation Mode 
FRI RII IRI RIK IIT IIR IIR REIKI RR ITA IIA IARI AIA ASIA III III IA IAAT AAS AISA AIA IIIA. 


Standard COBOL Coding Form 
CIA B 


Continuation Code G¥RM) [Next Screen is the Standard COBOL Coding Form] 
NRM = Normal Continuation TMP = Display Creation Screen List 
CMD Enter EDT Command Mode sss = Display Creation Screen sss 
RET = Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 


EDT Command: @EeG hard Era 


HHI K RIKER KIKI ERIK HEE IKKE IIIT II TETRA IIIT KEKE MEIKE 


We enter the @PRINT command in the EDT 
command field to display the work-space lines 70 


—_— and 71, which contain a syntax error, and then 
DISPLAYED [| transmit. 


SOURCE — 










INSPECT NAME TALLYING FOR ALL CHARACTERS 
AFTER INITAL ‘Ct. 


70.0000 
71.0000 









Although we realize that the coding for the 
INSPECT verb is wrong, we are not certain about 
its correct format. Therefore, we request 
COBEDT to display the INSPECT verb skeleton 
for us. Another standard COBOL coding form 
screen is displayed, with the current work-space 
line number (101), after we press the XMIT key. 
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Request the INSPECT verb 
skeleton 






0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Selective Creation Mode 
PKK HK KKK AREER KEE AKT EEE HEE R ERE EERE EREREEEEEREREREEEREREEEEREERERERRREE 


CIA 


Continuation Code @ONaams) [Next Screen is the Standard COBOL Coding Form} 


EDT Command:@ 
HHH HIKER EEE REE KIRHERMEEEREEEEEEEKR EKER HEEEKEEEEREREREKEEEREEAKKEK 
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SCREEN 


NRM 
CMD 
RET 






x} 











Standard COBOL Coding Form Line 











Normal Continuation TMP = Display Creation Screen List 
Enter EDT Command Mode sss = Display Creation Screen sss 
Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 














On this screen, we enter verb display code 
INSPECT in the continuation code field. 










Upon transmission, the INSPECT statement 
screen is displayed, with the current work-space 
line number (101). 
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SCREEN 
4 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Selective Creation Mode 
HRT EERE ERE IE EERE EER RRR ERE EERE KREMER EKER EERE REE IEEUEEEEEEKEEEEKE 


INSPECT Statement (1 of 3) 


INSPECT identifier-1 TALLYING {identifier-2 FOR 
{{{ALL,LEADING Cidentifier-3, literal -1}},CHARACTERS}, 
{{BEFORE,AFTER} CINITIAL) {identifier-4,literal-2}]}...}... 
RRA ERK KIER K EEE REE EEE EERE EKER KER KEEREEEKEEEKEKKEEEKEEEEEEKEEKREKEKRKKEKK 


Procedure Division Coding Form Line Rfam 


INSPECT NAME TALLYING COUNTR FOR CHARACTERS 


Continuation Code G¥RM) [Next Screen is Procedure Division Coding Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode vvvvvvvv = Display vvvvvvvv Verb Skeleton 


EDT Command: GLAM 


HRI RRR IKRRRRREKIKIIKIKKEREKKKIKIIHKKIKIKIKEHKEKEK KER EKREEEKKERREKKREA IKE MERNTEEEEE 





SOURCE 
LINES 
1 
THROUGH 
4 
DISPLAYED 


On this screen, we change line number 101 to 
70 and enter a correct source line to overwrite 
the old one. We also enter the @PRINT command 
in the EDT command field to see the first four 
lines of our program. After we press the XMIT 
key, the source lines are displayed. 














IDENTIFICATION DIVISION. 
2.0000 PROGRAM-ID. PROG3. 
3.0000 ENVIRONMENT DIVISION. 
SPECIAL-NAMES. 






























We notice that the basic portion of the 
environment division is missing and the necessary 
source lines must be added. After we press the 
XMIT key again to continue COBEDT normal 
processing, a standard COBOL coding form 
screen appears, with current work-space line 
number 71. 
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SCREEN 
5 


0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Selective Creation Mode 


HERE RREK KEKE EEE ER ERE EEE EERIE REEEREERUURE EEE EEE EE REREREEEERREREENERE 


Standard COBOL Coding Form Line 






cA OB 


Continuation Code Gai) [Next Screen is the Standard COBOL Coding Form] 
NRM = Normal Continuation TMP = Display Creation Screen List 
CMD = Enter EDT Command Mode sss = Display Creation Screen sss 
RET = Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 





EDT Command:@ 
REKKEREEEEKHEKEEREEEKEEREEKREEEE EEE KRERERE EEE EEE EEREEEREREKEEREEEHREEREKKKKEK 









Here, we change line number 71 to 3.1 to insert 
new source lines after the ENVIRONMENT 
DIVISION line and to avoid overwriting any 
existing lines. We then enter code ENV in the 
continuation code field to display the environment 
division screen to assist in our coding. Upon 
transmission, the following screen is displayed, 
with work-space line number 3.1. 
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SCREEN 
6 














0S/3 EDT/COBOL COBOL EDITOR(V8.0/1)-Ordered Creation Mode 


HRI ERERRERERE REE EKER EKER EEE REE EERE HERE HERE EKEEEEREREEEEEEE 





Environment Division Line 












AB 

ENVIRONMENT DIVISION. <Enter X if Division is not to be created> 
CONFIGURATION SECTION. 

SOURCE-COMPUTER. UNIVAC-0S3 









(CWITH) DEBUGGING MODE]. <Enter X if Line is to be created> 
OBJECT- COMPUTER. UNIVAC -0S3 
[CPROGRAM COLLATING) SEQUENCE (1S) <al phabet -name>} 





[SEGMENT-LIMIT IS <segment -number>]. 
Continuation Code (RM [Next Screen is File Control] 










NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode SN1 = Display Special-Names 1 Screen 
SCH = Display SYSCHAN Screen SN2 = Display Special-Names 2 Screen 





ALP = Display Alphabet Name Screen SSW = Display SYSSWCH Screen 
CLN = Display Class Name Screen 


EDT Command:@ 


HARRIE RK KIKI IAI EKER IKKE RIKER MUNK KER REE ERERUEKEKEREREEEEEEI KKK KA 








We simply press the TAB BACK key to move the 
cursor to the bottom of the screen and transmit. 
The four source lines not enclosed in brackets 
are created by default. Then, a standard COBOL 
coding form screen is displayed, with current 
work-space line number 3.5. 
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@PRINT command 
@DELETE command 


@FORMAT command 
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SCREEN 
- 7 


OS/3 EDT/COBOL COBOL EDITOR(V8.@/1)-Selective Creation Mode 
RR KK KIER ERE RE KEE EERE ERE REI KHHEEKEHEEREREUEERREREREKEEEREEEEEREEEEREEREREKEEREE 
Standard COBOL Coding Form Line 





cA 
| 
I 
| 
| 
I 
I 
| 
I 
! 
I 


Continuation Code [Next Screen is the Standard COBOL Coding Form] 
NRM = Normal Continuation TMP = Display Creation Screen List 
CMD = Enter EDT Command Mode’ sss = Display Creation Screen sss 
RET = Return to Ordered Mode vvvvvvvv = Display Verb Skeleton vvvvvvvv 


EDT Command:@ 
WKH ERKEEEKEEKEEREKEKREEHEKEEREEEKEEHEEKHEEKEEEEEEEEREEREKEEREREEREKRKMEEK 





EDT On this screen, we only enter code CMD in the 
COMMAND continuation code field. Upon transmission, the 

MODE j _ _| current work-space line number (3.5000) by itself 
ENTERED is displayed. 













3.5000> Gist EES 

1.0000 IDENTIFICATION DIVISION. 
2.0000 PROGRAM-ID. PROG3. 

3.9000 ENVIRONMENT DIVISON. 

3.1000 ENVIRONMENT DIVISON. 

3.2000 CONFIGURATION SECTION. 

3.3000 SOURCE-COMPUTER. UNIVAC-0S3. 
3.4000 OBJECT-COMPUTER. UNIVAC-OS3. 
4.0000 SPECIAL-NAMES. 

3.5000> @plaa aie 

3.5000> Gis 








We enter the @PRINT command to display source lines 1 
through 4, the @DELETE command to delete a duplicated 
ENVIRONMENT DIVISION line (line 3.1000), and the 
@FORMAT command to return to COBEDT and transmit. 
A standard COBOL coding form screen is then displayed, 
with current work-space line number 3.5. We continue 
editing our program in COBEDT. 
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@COBOL END command 


@WRITE command 


EDT message 


@HALT command 
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Assume we have finished editing our program PROG3, which now 
contains 120 lines, and that we are in the EDT command mode and 
the next work-space line number (121.0000) by itself is displayed. 
















121. 9000> Mae) telmm aT) 
PART Te WRITE MO=PROG3,FIL=TEST3, VSN=A00033,SAT=YES 


£0031 OVERWRITE? YES or NO)DY 


121. TT Te. HALT | 











We can now terminate our COBEDT session by 
entering the @COBOL END command and write 
our edited program (PROG3) to the permanent 
SAT file (TEST3) by entering the @WRITE 
command. Because a copy of our program 
already existed on the file, we are asked whether 
we want to overwrite the previous version. We 
respond yes (key in Y). Finally, we terminate our 
EDT session by entering the @HALT command. 











6.4. SAMPLE SESSION FOR EDITING A PROGRAM VIA EDT 


If an existing COBOL program needs only minor modification, you 
may make the changes directly in the EDT environment as shown 
in this sample session. The program used here is based on the 
one created in Section 4. 
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Copies PROG1 to the | 
work-space file 






























A @READ MO=PROG1,FIL=TESTFIL, VSN=A90011,SAT=YES 
56. 9000r(G SU RMRy-EEY4 





































1 
, 38.0000 PROCEDURE DIVISION. 
ee rae 39.0000 PRIMARY - PARAGRAPH. 
Sa aaah’ 62 40.0900 OPEN OUTPUT TRANFIL. 
41.0000 MOVE “AA” TO DUMMY-PUB. 
42.0000 MOVE 99 TO DUMMY-REPORT. 
43.0000 MOVE ALL “B” TO DUMMY-SORT. 
44.0000 MOVE 1 TO DUMMY-SEQUENCE. 
45.0000 MOVE ALL “C” TO DUMMY-VARIABLE. 
46.0000 LOOP -HERE. 
pea a 47.0000 MOVE DUMMY-OUT TO TRAN-OUT. 
ake cae 48.0000 WRITE TRAN-OUT INVALID KEY 
49.0000 ADD 1 TO DUMMY -SEQUENCE 
- 50.0000 DISPLAY “INVALID KEY” TRAN-KEY GO TO END-IT. 
puree a few ee 51.0000 IF SYS-REC-SIZE < 100 
peas ae 52.0000 GO TO LOOP-HERE. 
49 to line 51.1 — 56.0000, 
: 46. 1000> ADD 1 TO SYS-REC-SIZE. 


Displays lines 
45 through 52 











45.0000 MOVE ALL "C” TO DUMMY-VARIABLE. 

Wiis ie Gg 46.0000 LOOP -HERE. 

Dh abc ees ADD 1 TO Sis neU Size : 
. . MOVE DUMMY-OUT TO TRAN-OUT. 

SAT file TESTFIL 48.0000 WRITE TRAN-OUT INVALID KEY 

SG 50.0000 DISPLAY “INVALID KEY” TRAN-KEY GO TO END-IT. 
: . 51.0000 IF SYS-REC-SIZE < 100 

we wish to overwrite 51.1000 ADD 1 TO DUMMY -SEQUENCE 

the existing program 52.0000 GO TO LOOP-HERE. 








era ste WRITE MO=PROG1,FIL=TESTFIL, VSN=A00011,SAT=YES 
EDO31 OVERWRITE? (YES OR NO)DBY 
46.2000 Qa 





We respond yes. 









Ends the current 
EDT session 


NOTE: 


This sample is done under EDT line mode. You may also use 
EDT screen mode and/or the EDT error file processor (EFP) to 
edit your program. For more information, see the general editor 
(EDT) user guide/programmer reference. 
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Appendix A. Procedure Division Verb 
Skeleton Screens 


A.1. DISPLAYING THE VERB SKELETON SCREENS 


Purpose of verb screens 


Request a verb screen 


Use verb name as 
display code 


Choosing from multiple 
formats of a verb 


Use verb name or 
description for 
displaying format 1 


Use verb description 
for displaying format 2 
and above 


Use other methods to 
identify formats 


The procedure division verb skeleton screens provide you all the 
formats of the COBOL verbs (statements) supported by Sperry 
Univac. You can display any one of these screens by entering a 
proper verb display code in the continuation code field of a 
procedure division coding form screen, a standard COBOL coding 
form screen, or another verb skeleton screen. 


If the verb skeleton to be displayed is the only or the first format 
of the verb, you can simply use the verb name as the verb 
display code, such as CALL for the CALL verb. If the name is 
longer than eight characters, only the first eight characters are 
entered in the continuation code field, such as TRANSFOR for the 
TRANSFORM verb. 


If there is more than one format for a verb, you must specifically 
identify the one to be displayed. For the first format, enter the 
first eight characters of either the verb name or the verb 
description without space in the continuation code field. For 
example, the first format of the ADD verb is ADD TO; both ADD 
and ADDTO are legitimate display codes. 


For displaying the formats of a verb other than the first one, you 
may enter the first eight characters of the verb description 
without space in the continuation code field. If the verb format 
cannot be uniquely identified by the first eight characters, such as 
SUBTRACT GIVING and SUBTRACT CORRESPONDING, you may 
enter either a special display code unique for the verb format 
(A.3) or the basic verb name appended with a number from 2 to 
n, where n is the highest format number of a verb. If the verb 
name has eight or more characters, only the first seven 
characters are used when appended with the format number. For 
example, the SUBTRACT GIVING format can be displayed by 
entering either the special code SUBTRCTG or SUBTRAC2. 
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A.2. CODING THE VERBS 





If a shortened version of the procedure division coding form is 
displayed below the verb skeleton on the screen, for example, 
the ADD statement screen: 


0S/3 EDT/COBOL COBOL EDITOR(V8.@/1)-Selective Creation Mode 


REE EERE ERE EERE ARERR KEKE REE EHR EERE EKER EKER EEEREEREKRKEEKHKKEAER 
ADD Statement (1 of 3) 
ADD {identifier-1,literal-1} [{identifier-2,literal-2}]... 
TO identifier-m [ROUNDED] [identifier-n [ROUNDED]]... 
{;(ON) SIZE ERROR imperative-statement} 
RRM HHRMA HERE KEKE RAKE REE EN KEEREREKEEEEAEKNK KKK 


Procedure Division Coding Form Line nnann.nnnn 


clA iB 
I 
I 
I 
I 


Continuation Code (BMD [Next Screen is Procedure Division Coding Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode vvvvvvvv = Display vvvvvvvv Verb Skeleton 


EDT Command:@ 
RARER HHH KR KH TH RHEE EER RRMA 





you may code the verb and/or any other desired verbs here. @ 
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If there is no coding space available below the verb skeleton on 
the screen, for example, the UNSTRING statement screen: 


0S/3 EDT/COBOL COBOL EDITOR(V8.@/1)-Selective Creation Mode 
MRK EEERERERERERERUREEEEREREKEEREEEREREEEEEEKEEEEREEEEREEEEEEERHERERHHREEEEKE 


UNSTRING Statement 


UNSTRING identifier-1 [DELIMITEC (BY) [ALL] Cidentifier-2,literal -1} 
{OR [ALL] {identifier-3,literal-2}]...] 
INTO identifier-4 [,DELIMITER IN identifier-5] 
[,COUNT IN identifier -6] 
{identifier-7 [{,DELIMITER IN identifier -8] 
[, COUNT IN identifier-9]]... 
[CWITH) POINTER identifier-10] [TALLYING IN identifier-11] 
[;ON OVERFLOW imperative-statement]} 
HHMI ISR IIIA IRIN IRAE IRR I DAI TA IA SEIITI A IAI ASIII ASIII NAINA ITI II NAA II 





Continuation Code G¥RM> [Next Screen is Procedure Division Coding Form) 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode vvvvvvvv = Display vvvvvvvv Verb Skeleton 


EDT Command:@ 
HEH HII IIIT HITTITE RIKEN KERRIER RRR EEARUEKEKEREEREE 





you should transmit the screen with NRM in the continuation 
code field to display a coding form screen. If you are in ordered 
creation mode processing, a full procedure division coding form 
screen appears. If you are in selective creation mode processing, 
a standard COBOL coding form screen appears. 
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: COBOL EDITOR (COBEDT) 
es 


A.3. VERB SKELETON SCREENS 





All the procedure division verb skeleton screens have: similar 
structures and provide identical choices of continuation codes: 


OS/3 EDT/COBOL COBOL EDITOR(V8.@/1)-Selective Creation Mode 


RRERKREERERERERREREEEERERERRERRRERRERREERERERERERREKEEEREERERERREEEEREREEREREEEEE 


(This area contains either a verb skeleton or a verb 
skeleton with a shortened version of the procedure 
division coding form.) 


Continuation Code GBM) [Next Screen is Procedure Division Coding Form] 
NRM = Normal Continuation SEL = Enter Selective Creation Mode 
CMD = Enter EDT Command Mode vvvvvvvv = Display vvvvvvvv Verb Skeleton 


EDT Command: @ 
RARER ARERR ARERR REE RHEE EERE ERE KEEERURRREREEEEEWERERERERERARERERREEREK 


(This area is left blank for error messages.) 





To avoid redundancy in this appendix, we present only the verb 
skeleton portion of the screens. 


The pointers for the verb skeletons are the actual verb display 
codes and can be used directly to display the screens. 
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ACCEPT or 
ACCEPTFR 


ACCEPT2, 
ACCEPTDT, 
ACCEPTDY, or 
ACCEPTTI 


ACCEPT3 or 
ACCEPTME 


ACCEPT4 or 
ACCEPTUS 


ADD or 
ADDTO 


ADD2 or 
ADDGIVIN 
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Making Low-Volume Data Available to the Specified Data Item 
(ACCEPT Statement) 


SCREEN ACCEPT Statement 








ACCEPT Statement (1 of 4) 
ACCEPT identifier [FROM user -name] 





| SCREEN | ACCEPT Statement 


ACCEPT Statement (2 of 4) 
ACCEPT identifier [FROM {DATE,DAY,TIME}] 


| SCREEN | ACCEPT Statement 


ACCEPT Statement (3 of 4) 
ACCEPT cd-name (MESSAGE) COUNT 


| SCREEN | ACCEPT Statement 


ACCEPT Statement (4 of 4) 


ACCEPT identifier-1 [,identifier-2]...FROM mnemonic-name 
USING {identifier-3,literal} 








Summing Numeric Data Items and Storing the Result 
(ADD Statement) 


SCREEN ADD Statement 





ADD Statement (1 of 3) 
ADD Cidentifier-1,literal-1} [{identifier-2,literal-2}]... 
TO identifier-m [ROUNDED] [{identifier-n [ROUNDED]}... 
[;(ON) SIZE ERROR imperative-statement] 





ADD Statement 





ADD Statement (2 of 3) 
ADD {identifier-1,literal-1} [{identifier-2,literal-2}]... 
GIVING identifier-m [ROUNDED] [identifier-n [ROUNDED]]... 
[; (ON) SIZE ERROR imperative-statement] 




















UP-9 106 SPERRY UNIVAC OS/3 - A-6 
COBOL EDITOR (COBEDT) 


ADD3 or ADDCORRE MMMESSQGQXMMME ADD Statement 


ADD Statement (3 of 3) 


ADD {CORRESPONDING,CORR} identifier-1 TO identifier-2 [ROUNDED] 
[;(ON) SIZE ERROR imperative-statement] 





Changing the Sequence of Operations (ALTER Statement) 


ALTER MMMBSSSXMMM ALTER Statement 


ALTER Statement 


ALTER procedure-name-1 TO [PROCEED TO) procedure-name-2 
[,procedure-name-3 TO [PROCEED TO] procedure-name-4]... 





Transferring Control from One Object Program to Another 
(CALL Statement) 


CALL MESS CALL Statement 


CALL Statement 
CALL {identifier-1,literal-1} 


[USING {data-name-1,cd-name-1, identifier-2,file-name-1} 
[,{data-name-2,cd-name-2, identifier-3,file-name-2}]...] 
{[;CON) OVERFLOW imperative-statement] 






Releasing the Main Storage Areas Occupied by the Named 
Program (CANCEL Statement) 


CANCEL MMBC CANCEL Statement 


CANCEL Statement 
CANCEL {identifier-1,literal-1} [{,identifier-2,literal-2}].. 
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CLOSE or CLOSESEQ 
for CLOSE SEQUENTIAL 


CLOSE2, 

CLOSEREL, or 
CLOSEIND 

for CLOSE RELATIVE or 
CLOSE INDEXED 


COMPUTE 


COPY 


DELETE 
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Terminating the Processing of Files (CLOSE Statement) 





CLOSE Statement 


CLOSE Statement (1 of 2) 


CLOSE file-name-1 [{REEL,UNIT} [(WITH) NO REWIND (FOR) REMOVAL] 
CCWITH) {NO REWIND, LOCK})]] 
(file-name-2 [{REEL,UNIT} [(WITH) NO REWIND (FOR) REMOVAL] 
(CWITH) {NO REWIND, LOCK}]]]... 





| SCREEN | CLOSE Statement 


CLOSE Statement (2 of 2) 


CLOSE file-name-1 [(WITH) LOCK} 
(file-name-2 [CWITH) LOCK}]... 











Evaluating an Arithmetic Expression and Storing the Result 
(COMPUTE Statement) 


| SCREEN | COMPUTE Statement 


COMPUTE Statement 


COMPUTE identifier-1 {ROUNDED] [identifier-2 [ROUNDED]] ... 
= arithmetic-expression [(ON) SIZE ERROR imperative-statement] 





Incorporating Text into a COBOL Source Program (COPY 
Statement) 


| SCREEN | COPY Statement 


COPY Statement 
COPY text-name [{OF,IN} Library-name] 
[REPLACING {==pseudo-text-1==,identifier-1,literal-1,word- 1} 
BY {==pseudo-text-2==,identifier-2,literal-2,word-2}]... 





Logically Removing a Record from a Mass Storage File 


(DELETE Statement) 


DELETE Statement 








DELETE Statement 


DELETE file-name RECORD [INVALID (KEY) imperative-statement ] 
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DISABLE 


DISPLAY 


DIVIDE or DIVIDEIN 


DIVIDE2 or DIVIDEIG 


DIVIDE3 or DIVIDEBG 
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Notifying MCS* to Inhibit the Transfer of Data 
(DISABLE Statement) 


MEESSTINMEM DISABLE Statement 





DISABLE Statement 


DISABLE {INPUT [TERMINAL],OUTPUT} cd-name 
(WITH) KEY {identifier-1,literal - 1} 





Outputting Low-Volume Data on a System Logical Device 
(DISPLAY Statement) 


HE ae DISPLAY Statement 


DISPLAY Statement 


DISPLAY {identifier-1,literal-1} [,{identifier-2,literal-2}] ... 
(UPON mnemonic-name [USING {identifier-3,literal-3}]] 








Dividing One Numeric Data Item into Another and Storing the 
Quotient and Remainder (DIVIDE Statement) 


| SCREEN | DIVIDE Statement 


DIVIDE Statement (1 of 5) 
DIVIDE {identifier-1,literal-1} INTO identifier-2 [ROUNDED] 
{,Cidentifier-3 [ROUNDED}] 
[;(ON) SIZE ERROR imperative-statement] 








| SCREEN | DIVIDE Statement 


DIVIDE Statement (2 of 5) 


DIVIDE {identifier-1,literal-1} INTO cidentifier-2,literal-2} 
GIVING identifier-3 [ROUNDED] [{identifier-4 [ROUNDED]] ... 
[;(ON) SIZE ERROR imperative-statement] 


| SCREEN | DIVIDE Statement 


DIVIDE Statement (3 of 5) 


DIVIDE {identifier-1,literal-1} BY Cidentifier-2,literal-2} 
GIVING identifier-3 [ROUNDED] [identifier-4 [ROUNDED]] ... 
{; (ON) SIZE ERROR imperative-statement ] 





eer eee 
*MCS stands for message control system. 
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@ DIVIDE4 or DIVIDIGR 


DIVIDES or DIVIDBGR 


ENABLE 


EXHIBIT 


EXIT 
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SCREEN DIVIDE Statement 





DIVIDE Statement (4 of 5) 


DIVIDE {identifier-1,literal-1} INTO Cidentifier-2,literal -2} 
GIVING identifier-3 [ROUNDED] REMAINDER identifier-4 
[; (ON) SIZE ERROR imperative-statement] 





e145. DIVIDE Statement 





DIVIDE Statement (5 of 5) 


DIVIDE {identifier-1,literal-1} BY {identifier-2,literal -2} 
GIVING identifier-3 [ROUNDED] REMAINDER identifier-4 
[;(ON) SIZE ERROR imperative-statement} 








Notifying MCS* to Allow the Transfer of Data 
(ENABLE Statement) 


| SCREEN | ENABLE Statement 


ENABLE Statement 


ENABLE {INPUT [TERMINAL] ,OUTPUT} cd-name 
(WITH) KEY Cidentifier-1,literal-1} 





Displaying the Current Values of Data Items 
(EXHIBIT Statement) 


| SCREEN | EXHIBIT Statement 


EXHIBIT Statement 
EXHIBIT {NAMED,CHANGED NAMED,CHANGED} {identifier,nonnumeric-Lliteral} 








Providing a Common End Point or a Logical End 
(EXIT Statement) 


SCREEN EX!T Statement 





EXIT Statement 


EXIT [PROGRAM} 








*MCS stands for message control system. 
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GO or GOTO 


GO2 or GOTODEPE 


GO3 or GOTOMORE 


INSPECT or INSPECTT 


INSPECT2 or INSPECTR 


SPERRY UNIVAC OS/3 A-10 
COBOL EDITOR (COBEDT) 


Transferring Control out of Normal Sequence 
(GO TO Statement) 


MESSI GO TO Statement 





GO TO Statement (1 of 3) 
GO (TO) {procedure-name-1,.} 





GO TO Statement 











GO TO Statement (2 of 3) 


GO (TO) procedure-name-1 [,procedure-name-2] ... procedure-name-n 
DEPENDING (ON) identifier 








GO TO Statement 





GO TO Statement (3 of 3) 


GO (TO) MORE-LABELS 





Evaluating a Condition (IF Statement) 


| SCREEN | IF Statement 


IF Statement 


IF condition [{THEN,;}] {statement-1,NEXT SENTENCE} 
{;ELSE statement-2,ELSE NEXT SENTENCE} 











Tallying and/or Replacing Characters in a Data Item 
(INSPECT Statement) 


BSS INSPECT Statement 


INSPECT Statement (1 of 3) 


INSPECT identifier-1 TALLYING {identifier-2 FOR 
{{{ALL,LEADING {identifier-3,literal -1}},CHARACTERS}, 
[{BEFORE,AFTER} CINITIAL) {identifier-4,literal-2}]}...}... 








BSS INSPECT Statement 





INSPECT Statement (2 of 3) 


INSPECT identifier-1 REPLACING {CHARACTERS BY {identifier-6, literal -4} 
({BEFORE,AFTER} CINITIAL) {identifier-7, literal -5}] 
{{ALL, LEADING, FIRST} {{identifier-5,literal-3} BY 
{identifier-6,literal -4}, 
C{BEFORE, AFTER} (INITIAL) Cidentifier-7, literal-5}]}...}...} 
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& INSPECT3 or INSPCTTR SGGGGXMMMBLINSPECT Statement 


MERGE 


@ MOVE 


MOVE2 or MOVECORR 


INSPECT Statement (3 of 3) 


INSPECT identifier-1 TALLYING (see Format 1 for TALLYING description) 
REPLACING (see Format 2 for REPLACING description) 





Combining Sorted Files and Outputting Records in Merged 
Order (MERGE Statement) 


MERGE Statement 





MERGE Statement 


MERGE file-name-1 ON {ASCENDING,DESCENDING} (KEY) data-name-1 
[,data-name-2]... ON (ASCENDING, DESCENDING} (KEY) data-name-3 
[,data-name-4}... [(COLLATING) SEQUENCE (IS) alphabet-name} 
USING file-name-2, file-name-3 [,file-name-4]... 

{OUTPUT PROCEDURE (1S) section-name-1 [THRU section-name-2], 
GIVING file-name-5} 





Transferring Data to One or More Data Areas 
(MOVE Statement) 


MOVE Statement 





MOVE Statement (1 of 2) 
MOVE {identifier-1,literal} TO {identifier-2 [,identifier-3]... 


| SCREEN | MOVE Statement 


MOVE Statement (2 of 2) 
MOVE {CORRESPONDING, CORR} identifier-1 TO identifier-2 
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MULTIPLY 


MULTIPL2 or MLTPLYBG 


ON 


OPEN or OPENSEQU 
for OPEN SEQUENTIAL 


OPEN2, 

OPENRELA, or 
OPENINDE 

for OPEN RELATIVE or 
OPEN INDEXED 
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Multiplying Numeric Data Items and Storing the Result 
(MULTIPLY Statement) 


MULTIPLY Statement 


MULTIPLY Statement (1 of 2) 


MULTIPLY {identifier-1,literal-1} BY identifier-2 [ROUNDED] 
{, identifier-3 [ROUNDED]]... 
{(ON) SIZE ERROR imperative-statement] 














SCREEN MULTIPLY Statement 


MULTIPLY Statement (2 of 2) 


MULTIPLY {identifier-1,literal-1} BY {identifier-2,literal-2} 
GIVING identifier-3 [ROUNDED] [,identifier-4 [ROUNDED)]... 
[(ON) SIZE ERROR imperative-statement] 











Specifying the Condition for Executing the Statements 
(ON Statement) 


MMMBSSJSMMMM ON Statement 


ON Statement 


ON integer-1 [AND (EVERY) integer-2] [UNTIL integer-3] 
{statement-1,NEXT SENTENCE} ELSE {statement-2,NEXT SENTENCE} 





Initiating the Processing of Files (OPEN Statement) 


| SCREEN | OPEN Statement 


OPEN Statement (1 of 2) 


OPEN {INPUT file-name-1 [REVERSED] [(WITH) NO REWIND] 
{,file-name-2 {REVERSED] [(WITH) NO REWIND]]... 
OUTPUT file-name-3 [(WITH) NO REWIND] [file-name-4 [NO REWIND]}]... 
1-0 file-name-5 [,file-name-6]... 
EXTEND file-name-7 [{,file-name-8}...} 








OPEN Statement 





OPEN Statement (2 of 2) 


OPEN {INPUT file-name-1 [,file-name-2]... 
OUTPUT file-name-3 [,file-name-4]... 
1-0 file-name-5 [,file-name-6]...} 
OUTPUT file-name-3 [,file-name-4]... 
1-0 file-name-5 [,file-name-6]... 
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© Transferring Control out of Normal Sequence and Returning 
Control after Transfer Execution (PERFORM Statement) 
PERFORM or HES. a PERFORM Statement 
PERFORMT 


PERFORM Statement (1 of 4) 
PERFORM procedure-name-1 [{THROUGH, THRU} procedure-name-2] 


PERFORM2 or MMMESSUSSXMMMN PERFORM Statement 
PERFORMN 


PERFORM Statement (2 of 4) 


PERFORM procedure-name-1 [{THROUGH, THRU} procedure-name- 2] 
{identifier-1,integer-1} TIMES 


PERFORMS or MESS PERFORM Statement 





PERFORMU 
PERFORM Statement (3 of 4) 
PERFORM procedure-name-1 [{THROUGH, THRU} procedure-name-2] 
UNTIL condition-1 
@ PERFORM4 or BS PERFORM Statement 
PERFORMV 


PERFC°M Statement (4 of 4) 


PERFORM procedure-name-1 [{THROUGH, THRU} procedure-name-2] VARYING 
{identifier-2, index-name-1} FROM {identifier-3, index-name-2,literal -1} 
BY {identifier-4,literal-2} UNTIL condition-1 
[AFTER {identifier-5, index-name-3} FROM {identifier-6, index-name-4,literal-3} 
BY {identifier-7,literal-4} UNTIL condition-2 


{AFTER Cidentifier-8, index-name-5} FROM {identifier-8, index-name-6, literal -5} 
BY {identifier-10,literal-6} UNTIL condition-3]] 
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COBOL EDITOR (COBEDT) 


READ or READSEQU 
for READ SEQUENTIAL 


READ2 or READNEXT 


READ3 or READINVA 


READ4 or READKEY! 


RECEIVE 


RELEASE 
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Making Availabie a Record from a File (READ Statement) 


SCREEN READ Statement 





READ Statement (1 of 4) 
READ file-name RECORD [INTO identifier} [;AT END imperative-statement] 


MESS READ Statement 








READ Statement (2 of 4) 


READ file-name [NEXT] RECORD [INTO identifier} 
[;AT END imperative-statement] 








SCREEN READ Statement 








READ Statement (3 of 4) 


READ file-name RECORD [INTO identifier} 
[; INVALID (KEY) imperative-statement} 


READ Statement 





READ Statement (4 of 4) 


READ file-name RECORD [INTO identifier} [KEY (IS) data-name] 
[; INVALID (KEY) imperative-statement] 





Making Available a Message or Segment from an MCS* 
Queue (RECEIVE Statement) 


MSCS RECEIVE Statement 





RECEIVE Statement 


RECEIVE cd-name {MESSAGE,SEGMENT} INTO identifier-statement] 
{;NO DATA imperative-statement] 








Transferring Records to a Sort Operation 
(RELEASE Statement) 


SCREEN RELEASE Statement 





RELEASE Statement 
RELEASE record-name [FROM identifier} 








"MCS stands for message control system. 
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RETURN 


REWRITE 


@ SEARCH or SEARCHVA 


SEARCH2 or SEARCHAL 
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Obtaining Sorted Records from a Sort Operation or Merged 
Records during a Merge Operation (RETURN Statement) 


RETURN Statement 





RETURN Statement 
RETURN file-name RECORD [INTO identifier] ;AT END imperative-statement 








Logically Replacing a Record in a Mass Storage File 
(REWRITE Statement) 


REWRITE Statement 





REWRITE Statement 


REWRITE record-name [FROM identifier] 
[INVALID (KEY) imperative-statement] 








Searching for a Table Element That Satisfies the Specified 
Condition (SEARCH Statement) 


| SCREEN | SEARCH Statement 


SEARCH Statement (1 of 2) 
SEARCH identifier-1 [VARYING {identifier-2, index-name-1}] 
[;AT END imperative-statement-1] 
;WHEN condition-1 {imperative-statement-2,NEXT SENTENCE} 
[;WHEN condition-2 {imperative-statement-3,NEXT SENTENCE}]... 





SEARCH Statement 





SEARCH Statement (2 of 2) 
SEARCH ALL identifier-1 [;AT END imperative-statement- 1] 
WHEN {data-name-1 {(IS) EQUAL (TO),(IS) =} 
{identifier-3,literal-1,arithmetic-expression-1},condition-name- 1} 
[AND {data-name-2 {(1S) EQUAL (TO),(1S) =} 
{identifier-4,literal-2,arithmetic-expression-2},condition-name-2}] 
{imperative-statement,NEXT SENTENCE} 
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SEND or SENDFROM 


SEND2 or SENDFRWI 


SET or SETTO 


SET2, 
SETUPBY, 
or 
SETDOWNB 


SORT 
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Releasing a Message or Segment to Output MCS* Queues 
(SEND Statement) 


MESCIITMME SEND Statement 





SEND Statement (1 of 2) 
SEND cd-name FROM identifier-1 





SEND Statement 





SEND Statement (2 of 2) 


SEND cd-name [FROM identifier-1] 
{(WITH) identifier-2,(WITH) ESI,(WITH) EMI,(WITH) EGI} 
[{BEFORE, AFTER} ADVANCING 
{{{identifier-3, integer} [LINE,LINES]},PAGE}] 








Establishing Reference Points for Table Handling Operations 
(SET Statement) 


SET Statement 





SET Statement (1 of 2) 


SET {identifier-1 [,identifier-2]...,index-name-1 [,index-name-2]...} 
TO {identifier-3, index-name-3, integer - 1} 





MEST SET Statement 





SET Statement (2 of 2) 


SET index-name-4 [, index-name-5]... 
{UP BY,DOWN BY} {identifier-4, integer -2} 








Creating a Sort File and Outputting Records in Sorted Order 
(SORT Statement) 


| SCREEN | SORT Statement 


SORT Statement 


SORT file-name-1 ON (ASCENDING, DESCENDING} (KEY) data-name-1 
[,data-name-2]... [ON {ASCENDING, DESCENDING} (KEY) data-name-3 
{,data-name-4]...] [COLLATING SEQUENCE (IS) alphabet-name] 
{INPUT PROCEDURE (IS) section-name-1 [THRU section-name-2], 

USING file-name-2 [,file-name-3]...} 
{OUTPUT PROCEDURE (IS) section-name-3 [THRU section-name-4], 
GIVING file-name-4} 











*MCS stands for message control system. 
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START 


STOP 


STRING 


SUBTRACT or 
SUBTRCTF 


SUBTRAC2 or 
SUBTRCTG 
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Logically Positioning a Relative or Indexed File and Retrieving 
Records Sequentially (START Statement) 


SCREEN START Statement 





START Statement 


START file-name [KEY {(IS) EQUAL (TO),(1S) =,(1S) GREATER (THAN),(IS) >, 
(IS) NOT LESS (THAN),(IS) NOT < } ] : 
[; INVALID KEY imperative-statement] 








Terminating or Temporarily Suspending the Program Execution 
(STOP Statement) 


STOP Statement 





STOP Statement 


STOP {RUN, Literal} 






Juxtaposing Two or More Data Items into a Single One 
(STRING Statement) 


| SCREEN | STRING Statement 


STRING Statement 


STRING {identifier-1 [identifier-2],literal-1 [literal-2]}... 
DELIMITED (BY) {identifier-3,literal-3,SIZE} 
({identifier-4 [identifier-5],literal-4 [literal-5]}... 
DELIMITED (BY) {identifier-6,literal-6,SIZE}j... 
INTO identifier-7 [(WITH) POINTER identifier -8] 
[;ON OVERFLOW imperative statement] 








Subtracting Numeric Data Items from Specified Items and 
Storing the Result (SUBTRACT Statement) 


S30 eee SUBTRACT Statement 


SUBTRACT Statement (1 of 3) 


SUBTRACT {identifier-1,literal-1} [{,{identifier-2,literal-2}]... 
FROM identifier-m [ROUNDED] [,identifier-n [ROUNDED]] 
[CON) SIZE ERROR imperative-statement] 





SUBTRACT Statement 


“SUBTRACT Statement (2 of 3) 


SUBTRACT {identifier-1,literal-1} [,{identifier-2,literal-2}]... 
FROM {identifier-m,literal-m} GIVING 
identifier-n [ROUNDED} [,identifier-o [ROUNDED]] 
[CON) SIZE ERROR imperative-statement] 
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SUBTRAC3 or 
SUBTRCTC 


TRACE 


TRANSFOR or 
TRNSFMFT 


TRANSFOZ2 or 
TRNSFMOB 


UNSTRING 
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SCREEN SUBTRACT Statement 








SUBTRACT Statement (3 of 3) 


SUBTRACT {CORRESPONDING, CORR} identifier-1 FROM identifier-2 [ROUNDED] 
[(ON) SIZE ERROR imperative-statement] 











Initiating or Terminating the Trace Function 


(TRACE Statement) 


TRACE Statement 





TRACE Statement 


{READY ,RESET} TRACE 












SS? 


Altering Characters of an Identifier (TRANSFORM Statement) 


| SCREEN | TRANSFORM Statement 


TRANSFORM Statement (1 of 2) 


TRANSFORM identifier-1 [,identifier-2]... CHARACTERS 
FROM {identifier-3,nonnumeric-literat-1,figurative-constant- 1} 
TO {identifier-4,nonnumeric-literal-2,figurative-constant-2} 


| SCREEN | TRANSFORM Statement 


TRANSFORM Statement (2 of 2) 


TRANSFORM identifier-1 [,identifier-2]... CHARACTERS 
{ON,BY} identifier-5 












Separating Characters in a Field and Placing Them into 
Multiple Fields (UNSTRING STATEMENT) 


UNSTRING Statement 





UNSTRING Statement 


UNSTRING identifier-1 [DELIMITED (BY) [ALL] {identifier-2,literat-1} 
[OR [ALL] f{identifier-3,literal-2}]...} 

INTO identifier-4 [,DELIMITER IN identifier-5] 

[, COUNT IN identifier-6] 
Lidentifier-7 [,DELIMITER IN identifier -8] 

[, COUNT IN identifier-9]}... 

(CWITH) POINTER identifier-10] [TALLYING IN identifier-11] 

[;0N OVERFLOW imperative-statement] 




















UP-9 106 


USE or USEAFTER 


USE2 or USEFORDE 


USE3 or USELABEL 


WRITE or WRITESEQ 
for WRITE SEQUENTIAL 


WRITEZ2, 
WRITEREL, 
or 
WARITEIND 
for WRITE 
RELATIVE 


or 


WRITE INDEXED 
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Specifying Procedures for I/O Error or Tape Label Handling or 
Identifying User Items to Be Monitored by a Debugging 
Section (USE Statement) 


MEESGIENMME USE Statement 











USE Statement (1 of 3) 


USE AFTER (STANDARD) {EXCEPTION,ERROR} PROCEDURE (ON) 
{file-name-1 [{,file-name-2]...,INPUT,OUTPUT, I-0,EXTEND} 








SCREEN USE Statement 








USE Statement (2 of 3) 


USE (FOR) DEBUGGING (ON) {cd-name-1,{ALL (REFERENCES OF)] identifier-2, 
file-name-1,procedure-name-1,ALL PROCEDURES} 
[{cd-name-2, [ALL (REFERENCES OF)] identifier-3,file-name-2, 
procedure-name-2,ALL PROCEDURES}]... 








USE Statement 


USE Statement (3 of 3) 


USE {AFTER,BEFORE} (STANDARD) [BEGINNING, ENDING] [FILE,REEL] 
LABEL PROCEDURE (ON) {file-name-1 [,file-name-2]...,INPUT,OUTPUT} 





Releasing a Logical Record for an Output 
or I/O File (WRITE Statement) 


WRITE Statement 











WRITE Statement (1 of 2) 


WRITE record-name [FROM identifier-1] 
[{BEFORE,AFTER} ADVANCING {{identifier-2,integer} [{LINE,LINES}), 
mnemonic-name,PAGzZ}] 
[;AT {END-OF-PAGE,EOP} imperative-statement ] 





| SCREEN | WRITE Statement 


WRITE Statement (2 of 2) 


WRITE record-name [FROM identifier] 
[; INVALID (KEY) imperative-statement] 
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Indicating the Location Where a Debugging Package Is to Be 
Executed (*DEBUG Statement) 


*DEBUG MMMBSSQSNMM “DEBUG Statement 


*DEBUG Statement 


*DEBUG procedure-name 
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Appendix B. General Editor 
Command Summary 


B.1. SUMMARY OF EDT COMMANDS 


Table B-1 summarizes the formats and explanations for the EDT 
commands. The commands are listed in alphabetical order. 


Table B-1. EDT Command Summary (Part 1 of 6) 


+ command number and increment for 
- data and command lines 
keyed in at the workstation 


oo niaaaa || {ante Sets the current line 


ac ['search-string'[*n]] TO ‘change-string' [*n] Replaces an existing 
string in the current 
work-space file with a new 
string 


aco [line-range]['search-string'[«n]] Copies lines in the 
TO destination current work-space file to 


new line locations without 
deleting the original lines 


OFIN 'search-string' [xn] Locates the first occurrence 
of a string in the 
work-space file and assigns 
its corresponding line number 
to the variable ? and the 
column numbers of the first 
and last columns it occupies 
to [ and ] respectively 
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Table B~1. EDT Command Summary (Part 2 of 6) 





To specify file parameters for any file for which Creates in the work-space 
you want a list of modules, use this format: file a list of all modules 

contained in a specified 
scours tee program library 


FS [MODULE=module-name] [:THPE={ 
= 


‘filename! 


EES [Eton alia 
“filename” 


,VSN=volume 


at 


INSERT aI ‘change-string'[«n]) Inserts a specified string 
: into lines in the current 
work-space file 
LIST at [line-range]['search-string! [*n] ] [IMMEDIATE] Prints specified lines 
from the current work-space 
file on the printer 


MOVE aM [line-range]['search-string' [«*n]] Transfers specified lines 


TO destination to new line locations in 
the work-space file and deletes 
the original lines and line 
numbers 


@NU 'sequence-string'{*n} [BY increment] Inserts sequence numbers 

into input lines 

PRINT aP {line-range]['search-string! [*n]] Displays specified lines 
from the current work-space 
file on the workstation screen 

PUNCH @PU Cline-range]{'search-string'[(*#n]] [IMMEDIATE] Reproduces specified lines 
from the current work-space 
file on cards 


To read a SAT or MIRAM library module from disk or format Reads a copy of a 
label diskette to the current work-space file, use this format: library module or program 
library into the work-space 
@READ MUDULESNodaLe-name)| TIPE; medule-type)) file 
s 
TRUNC={ YES , EILENAME=( filename 
NO ‘filename! 
“filename” 
[, RDPASS=password], VSN=volume 
KEY=start-col-no:end-col-no 
KKEY=start-col-no:end-col-no 
SHOWATirst-col-no:last-col-no 
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© Table B-1. EDT Command Summary (Part 3 of 6) 


READ To read a MIRAM data file from disk or format label diskette 
(cont) to the current work-space file, use this format: 


‘filename! 
“filename” 


,VSN= =votume [, KEY YNO= tal ,DEVICE=(did 


[,BFSZ=n] pat 
Na 


A} (KEY=start-col-no:end-col-no 
KKEY=start-col-no:zend-col-no 


SHOWAf irst-col-no:last-col-no 


@READ emia attr ores 


To read a unit record file from a data set label diskette 
or from the card reader, use this format: 


‘filename! 
“filename” 


,DEVICE=(did , TRUNC= _ 
DISKETTE 


A] (KEY=start-col-no:end-col-no 
KKEY=start-col-no:end-col-no 


SHOWAfirst-col-no:last-col-no 


@READ emia art ales 


To read a file from a tape, use this format: 


‘filename! 


@READ commie puree ee 
“filename” 


,VSN=volume, DEVICE=fdid KNO= (ie 
TAPE 


pag KEY=start-col-no:end-col-no 
KKEY=start-col-no:end-col-no 


SHOWAf irst-col-no:last-col-no 
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Table B—1. EDT Command Summary (Part 4 of 6) 





gs 
READ To read a file from the spool file to the current work-space 
(cont) file, use this format: 


@READ [JOB=jobname) elit 
N 
Y 


'filename' 


ENE Cora [,ACCT=acct-no] 
“filename” 


, QUEUE=(LO0G rAbL=(1ES abe tal 
PRINT NO 
PUNCH 


RDR 


r TRUNC={ VES A|{KEY=start-col-no:end-col-no 

NO KKEY=start-col-no:end-col-no 
SHOWAfirst-col-no:last-col-no 

To read the same module or file last accessed through 

a previous @READ or @WRITE command, use this format: 


@READ 


To read the same module or file last accessed through 
a previous @READ or @WRITE command but read now 
with a KEY, KKEY, or SHOW parameter or any valid 
EDT command specified, use this format: 





KKEY=start-col-no:end-col -no 
SHOWAfirst-col-no:last-col-no 


{valid EDT command] 


@READA;A [icevseters:col:nosend: cot 


OREM 'search-string'[«n] Deletes a specified 
string from lines in 
the work-space file 


aSEQ { 'sequence-string' [«n] Pe increment Inserts sequence numbers 
* into existing lines in the 
current work-space file 


UPDATE aU [line-range]['search-string'[«xn]}] Displays specified lines 
from the work-space file 
one at a time for you 
to edit or change 
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& Table B-1. EDT Command Summary (Part 5 of 6) 


WRITE To write the current work-space file to a SAT or MIRAM Writes a copy of the 
library module on a disk or format label diskette, use current work-space file to: 
this format: a program library or data 


file on disk, diskette, or 
@WRITE MODULE=module-name jive [eonatertype) | tape, or to the spool file 
& 


‘filename’ 
“filename” 


— = 


,VSN=volume 


CONTIGS | ag [,RCSZ=n}[,SIZE=n]} 
NO » 


[3 SAT= =(ies | 


To write the current work-space file to a MIRAM data file 
on a disk or format label diskette, use this format: 


eames (batts [oer 


'filename' 


@WRITE ime tte eseicis 
“filename” 


,VSN=volume [-coutte= ves ] fe 


Bui bl INIT ={2S}] [ EXTEND= {mmm 
oe NO 
,KEYi=[start-col-no:end-col-no 

(oot: col-no:end-col-no, gla }. (oe ) 


,SIZE=n [,RCB= he »RC as bere ,RCSZ=n 
VAR 
[:sesz- |] .Beszona 


To write the current work-space file to a unit record 
file (i.e., to the printer, card punch, or to a data 
set label diskette), use this format: 


QWRITE FILENAME= (filename ,VSN=volume 
‘filename! 
“filename” 
,DEVICE=(did RCEM= ceM- (im ]f-eszen1 
DISKETTE VAR 
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———---——_cx-—woO— EEE 


Table B-1. EDT Command Summary (Part 6 of 6) 





WRITE To write the current work-space file to a tape, use 
(cont) this format: 


QWRITE FILENAME= (filename [, WRPASS=password] 
‘filename! 
“filename” 
,VSN=volume, DEVICE=fdid }C,BESz=n] , BKNO= Es\ 
TAPE : 


»RCFM= C,RCSZ=n] |, INIT=fYES 
FIXBLK [ No: ] 
VARUNB 
VARBLK 
UNDEF 


Feeley) 


To write the current work-space file to the spool file, 
use this format: 


QWRITE Seale cla ] 
NO 


‘filename’ 


eee ene 
“filename” 





, QUEUE=( PRINT GOBTES=(n| 
PUNCH x 
RDR 


To write to the same module or file last accessed through 
a previous @READ or @WRITE command, use this format: 


AWRITE 


To write to the same module or file last accessed through 
a previous @READ or @WRITE command, but written to 
now with any valid EDT command specified, use this 
format: 





@WRITEA;Avalid EDT command 
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B.2. SUMMARY OF EDT PROCEDURE FILE COMMANDS 


Table B-2 summarizes the formats and explanations for the EDT 
procedure file commands. The commands are listed in 
alphabetical order. 


Table B-2. EDT Procedure File Command Summary 





NOPRINT 
REVERT 


END Terminates procedure file 
definition 
GOTO aG {ret Permits branching within 
Line a procedure file 


INPUT @INP evparanesers ico ] Loads and executes a 


DO aD0 rroecmaver| oe | Executes a procedure file 





NOPRINT procedure file 
REVERT 


NOP QNOP [comment] Enters extra lines for 
branching or comments 
into a procedure file 


PROC @PRO [proc-number ] Begins procedure file 
definition 

RETURN @RET Terminates procedure file 
execution 
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B.3. SUMMARY OF EDT VARIABLE COMMANDS 





A Table B-3 summarizes the formats and explanations for the EDT 
variable commands. The commands are listed in alphabetical 
order. 


Table B~3. EDT Variable Command Summary 


'string'[«n] Assigns values to EDT 
n(x:y) variables 


DISPLAY 'string'(«*n] Displays a specified 
n(xzy) expression or the value 
n{+m] of a specified expression 
Gm from the work-space file 
LEN(n) on the workstation screen 


dIF.condition. command Permits an EDT command 
or EDT procedure file 

or command to be executed 
based on some condition 





@IF expression relation expression command 
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& B.4. SUMMARY OF EDT DIRECTIVE COMMANDS 


Table B-4 summarizes the formats and explanations for the 
directive commands. The commands are listed in alphabetical 
order. 


Table B-4. EDT Directive Command Summary (Part 1 of 2) 


Determines if processed lines 
are to be displayed 
on the workstation screen 


Deletes all fines in the 
entire EDT work-space file 


Activates the error file processor 


@FORMAT parameter string (for RPGEDT) Used only in conjunction 

QFORMAT (for COBEDT) with either RPGEDT or 
COBEDT. See the appropriate 
subeditor manual for information 
on the @FORMAT directive. 


Terminates the EDT session 
Activates the RPG II editor 


Defines various parameters 
to EDT that collectively 


make up your EDT 
7 a lusion-character i environment 


[,ATSIGN=command-tr igger][,COLON=range-separator] 


{,ENCOL=end- column] [-BUFFER={pggord- size} 
Ore 
[,WIDTH=device-size][, CLEAR] [ster (a | 
F 


[, DISPLAY) 


FOLD 


if SCROSPLY=TRUNCATE) 
if SCRDSPLY=FOLD) 


, LANGUAGE= ( $88¢8ea 
SCREEN FORTRAN 
COBOL 
RPG 


} es {gunst®})[- | 
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Table B-4. EDT Directive Command Summary (Part 2 of 2) 


@SY [workstation-command] Permits workstation commands 
to be issued during 


an EDT session or 
temporarily returns you 
to system mode 





B.5. SUMMARY OF EDT SCREEN COMMANDS 


Table B-5 summarizes the formats and explanations for the 
screen commands. It lists the commands in alphabetical order. 


Table B-5. EDT Screen Command Summary 


Displays a freeform 
screen that allows you 
to switch to block mode 
for entering multiple 
commands or data 


@HE [error message code] Displays help screens for 
any EDT error messages 


Displays a screen 

showing the parameters on the 
@SET directive (those that 
make up your EDT 
environment) 


@PROM [edt command] Displays the EDT command 
menu screen or help screens 
for any of the EDT commands 
(meaning EDT commands, 
modifiers, directives, procedure 
file commands, variables, and 
screen commands) 


Returns you to the point in 
your EDT session where you 
originally entered a 

screen command 


Displays freeform screens, 
showing the EDT work-space 
file, where you can update 
lines or simply view them 
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& B.6. SUMMARY OF EFP COMMANDS 


Table B-6 summarizes the formats and explanations for the EFP 
commands. It lists the commands in alphabetical order, not the 
order in which you may necessarily use them. 


Table B-6. EFP Command Summary 


To correct and display COBOL and RPG II errors and Displays errors in your 
FORTRAN IV errors for one source module at a time, use: error file along with 
the source lines that 
@EF (XJACprogram-unit-namejA contain those errors. 
Cerror-rangeJA Note that EFP is both 
C'search-string'] an EDT directive and 
an EFP command. 


To correct and display FORTRAN !V errors for compilations 
that process multiple source modules, use: 


@EF SOU source-module-name, 
source-file-name, 
vsn 


Displays an error file 
summary for the module 
you're correcting 
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Appendix C. Workstation 
Command List 


For a quick reference, all the commands you may enter from a 
workstation are listed here. For detailed descriptions of these 
commands, see the current versions of the interactive services 
commands and facilities user guide/programmer reference and its 
summary. 













ALLOCATEA (ST) , FILENAME= (filename {,RDPASS=password] [ ,WRPASS=password] 
IR 'filename' 
Is “filename” 
DA 
SQ 


NI 
MI 








neta 


ASKA[user-id],'text' 












EGINAJBQ[—~(# 


H 
N 
Pp 













BEGINASPL, 768 
770 
773 
776 
778 
789 


9300 


[,ACCT=acctno][{,CART=cartr idge- id}f, DEV= 





[,FILE=filename][{,fORM=formname] [ , JOB=jobname][,STEP=stepno] 
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eae 6 ct [,ACCT=acctno][,CART=cartr idge- id] 
I) (pu 


,DEV={768 [, FILE=filename][,FORM=formname] , JOB=jobname 
770 
773 
776 
778 
789 
9300 


H] 


Pp 


MENTAMODULE=modul ename peu gee , EILENAME= (filename 
$s ‘filename! 
“filename” 


[,RDPASS=password][,WRPASS=password] , VSN=volumeAtext 


CONNECTAjob[, filename] 


Copying Modules: 











COPYAMODULE=modulename |, TYPE={module-type) ], FILENAME=(filename 
s 'filename' 
“filename” 


[,RDPASS=password] , VSN=vol umeATOAMODULE=modul ename Ce ca 


,EILENAME= (filename ) [,RCSZ=n][,WRPASS=password] , VSN=volume 
'filename' 
“filename” 





[-seurze= (me 1 eae \] [, SIZE=n] fae 
Ne 1 wo 
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Copying MIRAM Files: 


COPYAFILENAME=(filename ) ,RDPASS=password, VSN=volume las 


‘filename! 
“filename” 


ae ilename 


'filename'} [,WRPASS=password],VSN=volume 
“filename” 


a 


ve [/RCSZ=n } dja {* i [,BFSZ=n] 
NO 


A[NUMBER J] { ,HEX][,WAIT] 


,KEYNO= : 7KEYi=ynim [,SIZE=n} 
@: (osm ou ae y 


Copying Spool Files: 


COPYA[ JOB=jobname] [, HOLD= ,FILENAME= (filename -[,ACCT=acct ], QUEUE=/(LOG 
‘filename! PRINT 
vi “filename” PUNCH 


RDR 


,ALL=fYES)][,SKIP=(n) ] ATOA[ JOB=j obname] dino »LILENAME= (filename — 
no ‘a ¥ ‘filename! 


“filename’ 


,QUEUE=(PRINT) A[NUMBER][,HEX][,WAIT] 
PUNCH 
RDR 


Copying Tape Files: 


COPYA [FILENAME=(filename Eat seesies tear ic air valime,oei cee yeraes Me 
‘filename! TAPE 
“filename” 
‘filename! 
“filename” 


ae Gee I [,BESZ=n) [, BKNO= TRCEM=(FEXUNE 
nO ino FIXBLK 


VARUNB 
VARBLK 
UNDEF 


ATOA ee eine ! SM eer cr oer eee ee 
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Copying Unit Record Files: 


COPYADEVICE=(did ,EILENAME=(filename ),VSN=volume ATOADEVICE=(did 
DISKETTE ‘filename! DISKETTE 
“filename” 


LENAME=( filename ,VSN=volumeA[ NUMBER ][,HEX][,WAIT] 
‘filename! 
“filename” 


DDPAcommand- string 


cada ag cea string} 
MW 


Deleting Function Key Definitions: 


DEFKEYA(F #mm 
“| 


DEFKEY DISPLAY 


DELETEASPL,/ALL \[,ACCT=acctno][,CART=cartridge-id] [| pEV=(768 


LOG 770 
PRINT 773 


PUNCH 776 
RDR 778 
789 
9300 
[, FILE=filename][{,FORM=formname][,JOB=j obname][,STEP=stepno] 


Deleting a Specific Job: 


DELETEAj obname[,LOG] 


Deleting All Jobs from One or All Job Queues: 


DELETEAJBQ,(#&\[,LOG] 
H 
N 
P 
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DISPLAYAJBQ, ii 






, DEV=(768 
770 
773 
776 
778 
789 
9300 


{,ACCT=acctno][,CART=cartr idge- id] 


DISPLAYASPL[I , (Gy [,ACCT=acctno][,CART=cartridge-id] [DEV=/(768 
LOG 770 
PRINT 773 
PUNCH 776 


ROR 


[, FILE=f ilename}(,FORM=formname][,JOB=jobname][,STEP=stepno] 


EDTA[Linitial command] 









To Run a Command Stream from a Library File: 






& ‘filename! 
“filename” 


i ee ae eile! ,EILENAME= (filename 


[, RDPASS=password] , VSN=volume 





To Run a Command Stream from a Spooled File: 






‘filename! 


ENTERA/[, HOLD= vt 1 EILENAME=/(f ilename , QUEUE=RDR 
Y 
“filename” 





To Run a Command Stream from a Diskette: 


'filename' DISKETTE 


ENTERA f FILENAME= (filename [,RDPASS=password], VSN=volume eee ne }] 
“filename” 
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To Run a Command Stream from a Tape: 










ENTERA [ FILENAME=( filename {,RDPASS=password],VSN=volume | ,DEVICE=Jdid } 
‘filename’ TAPE 
“filename” 





To Run a Command Stream from a Card Reader: 


ENTERA ces be 
RDR 


Erasing a Library Module: 











ERASEAMODULE=modulename [,TYPE={ module-type) |, FILENAME= (filename 
s 'filename' 
“filename” 


[ ,WRPASS=password] , VSN=volume 


Erasing Library and MIRAM Files: 










ERASEAFILENAME=(filename }[,WRPASS=password],VSN=volume 
'filename' 
“filename” 





EXECUTE jobname 
sa rn salt-filename 


CRDR, Label ) :/alt-filename, (RES 
RUN 
vsn 


:/alt-filename,| {RES } | write-pass 
RUN ) 


vsn 





ESTATUSA[MODULE=modul ename] |, TYPE= ee ,EILENAME={ filename 
s ‘filename! 


“filename” 







[,RDPASS=password], VSN=volumeA[LONG ] 


GOAj obname 


HELPAJ command 
message-no 
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HOLDASPL, [ ,ACCT=acctno][,CART=cartridge-id] [,DEV=(768 
PRINT 770 

PUNCH 773 

LOG 776 

RDR 778 

789 


9300 
[,FILE=f ilename][,FORM=formname][, JOB=jobname]{, STEP=stepno] 


Holding All Jobs or All Jobs on a Particular Job Queue: 


HOLDAJBQ [7/#@ 
H 


N 
Pp 
Holding an Individual Job: 


HOLDAj obname 








LOGONAuser - id[,acct][,password][,exec-pro] Capua NO ] Gare | 
ha NO 


LOGOFF 


MENUA [menu -name] 


















oc 








A ee ee ee , (PRE 
(RDR, Label) HIGH 





[,key-1=val-1,...,key-n=val-n] 
OVAjobname-library-unit[(new-name)] |, (PRE [,key-1=val-1,...,key-n=val-n] 
HIGH 








PAUSEAj obname 
ayer ceed tmg reset ger sea 
PU 


[,FILE=filename] [,FORM=formname] [, JOB=jobname] 


Printing a Library Module: 





PRINTAMODULE=modul enamef, LYPE={ module - type ] ,EILENAME=/( filename 
'filename' 
“filename ~ 


[, RDPASS=password], VSN=vol ume Gea {peor comer avr nanees 


n 
z 
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Printing a Library or MIRAM File: 





PRINTAFILENAME=( filename [ ,RDPASS=password], VSN=volume [,KEYNO={n 
‘filename! 
“filename” 








DISKETTE 


mee nye. VICE=(did A[DIRECT][,NUMBER][,HEX][,WAIT] 
. 






Printing a Spool File: 





‘filename’ 
“filename” 





PRINTA[JOB=jobname] [,HOLD=(L LENAME= (filename [,ACCT=acct] 
I 
Y 
, QUEUE=/LOG 7ALL=/YES)][, COPIE 7SKIP=(n | JALOIRECT]{ ,NUMBER][{,HEX)[,WAIT] 
print due Ea tel 
PUNCH 
RDR 







Printing a Tape File: 










PRINTA [FILENAME= filename [, RDPASS=password],VSN=volume ,DEVICE= ie } 
'filename' TAPE 
“filename” 









ee na | A [DIRECT][,NUMBER}[,HEX][,WAIT] 
iO 





Printing a Unit Record File: 

















PRINTA DEVICE=(did , EILENAME=( filename ,VSN=volume 
DISKETTE ‘filename! 
“filename” 


A [DIRECT][,NUMBER][,HEX][,WAIT] 






Punching a Library Module: 









Ss ‘filename! 
“filename” 





PUNCHA MODULE=modul ename poe | en sina ! 






{ ,RDPASS=password] , VSN=volume eau" 


[pera 
& 
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Punching a MIRAM File: 


‘filename! 2 
“filename” 


fecuae ] 7 DEVICE=/did A[DIRECT][,WAIT] 


PUNCHAFILENAME=(filename )[,RDPASS=password],VSN=volume tel 


GE 


Punching a Spool File: 


PUNCHA[ JOB=j obname] [, HO 


LENAME=(filename )]I[,ACCT=acct} 
‘filename! 


“filename” 


=(L 
N: 
Y 
, QUEUE= LOG 7 ALL= a] se | /SKIP={n)]A[DIRECT][, WAIT] 
PRINT a 


PUNCH 
RDR 


Punching a Tape File: 
PUNCHA[FILENAME=( filename [,RDPASS=password], VSN=volume 


{'filename! 
“filename” 


DEVICE={did Vf uk" | ies ,WAIT) 
ey 


Punching a Unit Record File: 


‘filename! 
“filename” 


DISKETTE 


BE eee itor oo A[DIRECT][,WAIT] 


RECALLA[fLASTAnn 
hh:mm:ss-hh:mm:ss 


RECOVERAMODULE=modulename [,TYPE=(module-type)],FILENAME= (filename 
E 'filename' 
“filename” 


[, RDPASS=password] [ ,WRPASS=password] , VSN=volume 


REMARKAtext 
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aa a ee jobname 
CRDR, Label ) } module-name 


A PRE [,key-1=val-1,...,k 
HIGH 


i leh as, : 


module-name ( 


[,key-1=val-1,...,key-n=val-n] 
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ji seecnenent talt-filename 


: /alt-filename, (RES 
vsn 
:/alt-filename, RES) |, read-pass 
vsn 


ey -n=val-n]j 


alt-filename 
alt-filename, (RES 
RUN 


vsn 


RUN 


alt-filename,[{ {RES aa 
vsn 


ga era eerie oe } [(new-name) ]| , {PRE 
(RDR, Label ) module-name HIGH 


module-name 


sa ere eae {i 


H 


IGH 


UPPER) [| XMIT=(¥AR 7 XFER=( VAR 
LOWER CHAN CHAN 
ALL ALL 


} ret , KEYBOARD= FARD |] [, INTENSITY=(NORMAL 
tT 12 KATAKANA bow 


REVERSE 
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TATUSAT/ TERMINALS 
RESOURCES 
JOBS 
FUNCTIONS 
VOLUMES 


STOPAj obname 


LAff{user-id),] ‘text! 
ALL 


VIOCA[ ' file-prefix', ]VSN=volumeA[ FREE ] 
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COBEDT 
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Activating COBEDT 3.1 3-1 
COBEDT related commands 
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Allocating a file 43 4-19 EDT @COBOL 3.1 3-1 
& 5.3 5-17 @FORMAT 3.3 3-4 
@HALT 3.4 3-7 
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general structure 2.3 2-4 
Alternate record keys screen, 
description 4.4 4-36 @COBOL command 3.1 3-1 
@COBOL END command 3.4 3-7 
COBOL format notations 
ordered creation mode screens 2.4 2-6 
selective creation mode screens 24 2-7 
COBOL program 
compiling 43 4-20 
creating 1.2 1-2 
Fig. 1-1 1-3 
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sample creation session, via 
CALL statement screen A3 A-6 ordered creation mode 43 4-6 
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CANCEL statement screen A3 A-6 selective creation mode 53 5-6 
sample editing session, via EDT 6.4 6-18 
Cardpunch select screen, description 44 4-33 sample editing session, via 
ordered creation mode 6.1 6-2 
Cardreader select screen, description 44 4-32 6.2 6-8 
@ sample editing session, via 
~~ Class-name screen, description 4.4 4-30 selective creation mode 6.3 6-11 
updating (editing) 1.2 1-2 
CLOSE statement screens A3 A-7 Fig. 1-2 1-2 
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description 5.2 5-5 
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COBOL syntax error detection and screen, description 5.2 5-4 
handling 42 4-4 
5.1 5-2 Cursor, moving 2.2 2-3 
COBOL verb skeleton screens Appendix A 
Coding the verbs A.2 A-2 
Command conventions 1.3 1-4 
Commands 
COBEDT See COBEDT 
related D 
commands. 
EDT, summary B. B-1 Data, keying in on ordered creation 
be Table B-1— B-1 mode screens 42 4-3 
EDT directive, summary B.4 B-9 
F Table 8-4 B-9 Data division coding form screen, 
EDT procedure file, summary B.2 B-7 description 44 4-4] 
Table B-2_-B-7 
EDT screen, summary a a Data division screens, description 44 4-38 
EDT variable, summary B.3 B-8 Data item description screen, 
Table B-3B-8 description 44 4-44 
EFP, summary B.6 B-11 
Table B-6 = B-1 *DEBUG statement screen A3 A-20 
general editor, summary Appendix B 
workstation Appendix C DELETE statement screen A23 A-7 
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description 4.4 4-42 
oat : DISABLE statement screen A3 A-8 
Communication section output CD screen, 
description 4A 4-43 DISPLAY statement screen A3 A-8 
Compiling a COBOL program 4.3 4-20 DIVIDE statement screens A3 A-8 
COMPUTE statement screen A.3 A-7 
Condition name screen, description 44 4-46 
Continuation code 3.2 3-2 
Control division screen, description 4.4 4-22 
Conventions, commands 1.3 1-4 E 
COPY statement screen A3 A-7 Editing a COBOL program Fig. 1-2 1-3 
Creating a COBOL program Fig. 1-1 1-3 Editing COBOL programs, sample sessions 
during creation 6.1 6-2 
Creating COBOL programs, sample session via EDT 6.4 6-18 
via ordered creation mode 43 4-6 via ordered creation mode 6.2 6-8 
via selective creation mode 5.3 5-6 via selective creation mode 6.3 6-11 
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EFP commands B.6 B-11 GO TO statement screens A3 A-10 
ENABLE statement screen A3 A-9 
Ending COBEDT 3.4 3-7 
Entering ordered creation mode 4.2 4-3 
Entering selective creation mode 5.1 5-2 H 
Environment division screens, HALT command 3.4 3-7 
description 4.4 4-24 
Error checking, immediate 1.1 1-1 
Error detection and handling, COBOL 
syntax 4.2 4-4 | 
5.1 5-2 
Identification division screen, 
EXHIBIT statement screen A3 A-9 descristion AA 4-23 
® EXIT statement screen A3 A-9 iF Slatetant Szcan A3 A-10 
Indentation, data division lines 44 4-47 
INDEXED BY screen, description 44 4-45 
Indexed select alternate record keys 
screen, description 44 4-36 
Indexed select screen, description 44 4-35 
Initial display 3.2 3-1 
F 
Input CD screens, description 44 4-42 
FD data record form screen, 
description 44 4-40 INSPECT statement screens A3 A-10 
FD screen, description 44 4-38 Introduction to COBEDT 11 1-1 
File control screen, description 44 4-30 !-0 control apply screen, description 44 4-37 
File select type screen, description 44 4-31 0 control screen, description 4.4 4-36 
@FORMAT command 3.3 3-4 
Format notations, COBOL 
ordered creation mode screens 2.4 2-6 
& selective creation mode screens 2.4 2-7 
: K 


Format notations for COBEDT screens, 
general 24 2-5 KEY IS screen, description 44 4-45 
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Term Reference Page Term Reference Page 
L O 
Level numbers, COBOL, valid 4.2 4-4 OCCURS screen, description 44 4-44 
LINAGE screen, description 44 4-39 ON statement screen A3 A-12 
Line numbers, work-space 1.2 1-2 OPEN statement screens A3 A-12 
42 4-5 
5.1 5-2 Option select screen 
description 3.2 3-1 
Lines, data division, indentation 44 4-47 invalid options 3.2 3-3 
sample creation session, ordered 
Linkage section, coding 4.4 4-48 creation mode 4.2 4-6 
sample creation session, selective 
Logging off 2.1 2-3 creation mode 5.3 5-6 
sample editing session 6.2 6-9 
Logging on 2.1 2-1 6.3 6-11 
transmitting 3.2 3-3 
LOGOFF command 2.1 2-3 use 3.2 3-2 
LOGON command 2.1 2-2 Ordered creation mode 
COBOL syntax error detection and 
Logon menu 2.1 2-2 handling 4.2 4-4 
entering 4.2 4-3 
general features 4.1 4-1 @ 
keying in data on screens 42 4-3 
operating in 4.2 4-3 
sample creation session 43 4-6 
sample editing session 6.1 6-2 
6.2 6-8 
use 3.2 3-2 
M why enter EDT command mode 42 4-5 
why enter selective creation mode 42 4-5 
work-space line numbers 4.2 4-5 
MERGE statement screen A3 A-11 
Ordered creation mode screens 
MOVE statement screens A3 A-11 COBOL format. tiotations 24 2-6 
Moving: the: cursot 29 9-3 summary with display codes ty a Me 
MULTIPLY statement screens A3 A-12 Ordered creation mode screens, 
description 
alphabet-name 44 4-28 
alternate record keys 44 4-36 
cardpunch select 44 4-33 
cardreader select 4.4 4-32 
class-name 44 4-30 
condition name 44 4-46 
control division 4.4 4-22 
N data division coding form 44 4-47 
data item description 44 4-44 
Notations, COBOL environment division (basic portion) 4.4 4-24 
ordered creation mode screens 2.4 2-6 FD 44 4-38 
selective creation mode screens 2.4 2-7 FD data record form 44 4-40 
file control 44 4-30 
Notations for COBEDT screens, general 24 2-5 file select type 44 4-31 
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& Term Reference Page Term Reference Page 
Ordered creation mode screens, Relative select screen, description 4.4 4-35 
description (cont) 
identification division 44 4-23 RELEASE statement screen A3 A-14 
INDEXED BY 44 4-45 
indexed select 44 4-35 RENAMES screen, description 44 4-46 
input CD 44 4-42 
1-0 control 44 4-36 RETURN statement screen A3 A-15 
1-0 control apply 44 4-37 
KEY IS 44 4-45 REWRITE statement screen A3 A-15 
LINAGE 44 4-39 
OCCURS 4.4 4-44 
output CD 44 4-43 
printer select 44 4-33 
| procedure division coding form 44 4-49 Ss 
| relative select 44 4-35 
RENAMES 4.4 4-46 ; ; 
SD 44 4-4] Sample creation session, ordered 
sequential disk select 44 4-34 creation mode 
special-names screen 1 44 4-26 creating a COBOL program 4.3 4-6 
special-names screen 2 44 4-27 sample program, screen reference 43 4-18 
special-names select 44 4-25 ; ; ; 
SYSCHAN 4A 4-27 Sample creation session, selective 
SYSSWCH 4A 4-29 creation mode 
tape select 44 4-34 creating a COBOL program 5.3 5-6 
& sample program, screen reference 5.3 5-16 
: Output CD screen, description 4A 4-43 
? P Screen commands, EDT B.5 B-10 
Screen formats, COBEDT 11 1-1 
Screen mode, EDT 1.2 1-2 
P 
Screens 
PERFORM statement screens A3 A-13 option select 3.2 3-1 
ordered creation mode 44 4-22 
Printer select screen, description 44 4-33 selective creation mode 5.2 5-3 
verb skeleton, procedure division Appendix A 
Procedure division coding form screen, 
description 44 4-49 Screens, COBEDT 
format notations, general 2.4 2-5 
Procedure division verb skeleton screens Appendix A general structure 2.3 9-4 
transmitting 2.2 © 2-3 
Procedure file commands, EDT B.2 B-7 
SD screen, description 44 4-41 
SEARCH statement screens A3 A-15 
Select creation mode 3.2 . 3-2 
R SELECT screens, description 


cardpunch 44 

cardreader 44 

READ statement screens A3 A-14 indexed 44 
relative 44 
sequential disk 44 
tape 44 


4-33 

4-32 

4-35 

@ printer 44 4-33 
RECEIVE statement screen A3 A-14 4-35 

4-34 

4-34 


Reentering COBEDT from EDT 3.3 3-4 
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Term Reference Page Term Reference Page 
Selective creation mode Syntax error, COBOL, detection and 
COBOL syntax error checking 5.1 5-2 handling 42 4-4 
entering 42 4-5 5.1 5-2 
5.1 5-2 
operating in 5.1 5-1 SYSCHAN screen, description 44 4-27 
sample creation session 5.3 5-6 
sample editing session 6.3 6-11 SYSSWCH screen, description 44 4-29 
use 3.2 3-2 
41 4-1 
work-space line numbers 5.1 5-2 


Selective creation mode screens, COBOL 





format notations 2.4 2-7 
Selective creation mode screens, T 
description 
COBOL program skeleton 5.2 5-5 
creation mode display screen fist 5.2 5-4 Tape select screen, description 44 4-34 
standard COBOL coding form 5.2 5-3 
Terminating COBEDT 3.4 3-7 
SEND statement screens A3 A-16 
TRACE statement screen A3 A-18 
Sequential disk select screen, 
description 44 4-34 TRANSFORM statement screens A3 A-18 
SET statement screens A3 A-16 Transmitting the option select screen 3.2 3-3 
SORT statement screen A3 A-16 Transmitting the screen 2.2 2-3 
Source data, keying in on ordered 
creation mode screens 4.2 4-3 
Special-names screens, description 
alphabet-name 44 4-28 
class-name 44 4-30 U 
screen 1 44 4-26 
screen 2 4.4 4-27 
SYSCHAN 4A 4-27 UNSTRING statement screen A3 A-18 
SYSSWCH 44 4-29 
Updating a COBOL program Fig. 1-2 1-3 
Special-names select screen, 
description 44 4-25 USE statement screens A3 A-19 
Standard COBOL coding form screen, User data fields 2.2 2-3 
description 5.2 5-3 2.3 2-4 
2.4 2-5 
START statement screen A3 A-17 
STOP statement screen A3 A-17 
STRING statement screen A3 A-17 V 
SUBTRACT statement screens A3 A-17 Valid COBOL level numbers 4.2 4-4 





Syntax checking, immediate 11 1-1 Variable commands, EDT B.3 B-8 
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& Term Reference Page Term Reference Page 
Verb skeleton screens SEND A3 A-16 

ACCEPT A3 A-5 SET A3 A-16 
ADD A3 A-5 SORT A3 A-16 
ALTER A3 A-6 START A3 A-17 
CALL A3 A-6 STOP A23 A-17 
CANCEL A3 A-6 STRING A3 A-17 
CLOSE A3 A-7 SUBTRACT A3 A-17 
COMPUTE A3 A-7 TRACE A3 A-18 
COPY A3 A-7 TRANSFORM A3 A-18 
*DEBUG A3 A-20 UNSTRING A3 A-18 
DELETE A3 A-7 USE A3 A-19 
DISABLE A3 A-8 WRITE A3 A-20 
DISPLAY A23 A-8 
displaying Al A-1 Verbs, coding A.2 A-2 
DIVIDE A3 A-8 
ENABLE A3 A-9 
EXHIBIT A3 A-9 
EXIT A3 A-9 
general structure and codes A3 A-4 
GO TO A3 A-10 
IF A3 A-10 
INSPECT A3 A-10 WwW 
MERGE A3 A-11 
MOVE A3 A-11 Work-space file 1.2 1-2 
MULTIPLY ; A3 A-12 

& ON A3 A-12 Work-space line numbers 
OPEN A3 A-12 current, format notation 2.4 2-5 
PERFORM A3 A-13 description 1.2 1-2 
READ A3 A-14 ordered creation mode 4.2 4-5 
RECEIVE A3 A-14 selective creation mode 5.1 5-2 
RELEASE A3 A-14 
RETURN A3 A-15 Workstation command list Appendix C 
REWRITE A3 A-15 
SEARCH A3 A-15 WRITE statement screens A3 A-19 
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